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ABSTRACT 


A  micromechanical  model  for  the  analysis  of  particulate  mechanical  behavior  is 
presented.  Nonlinear  effects  are  introduced  in  the  model  by  a  nonlinear  elastic  description  of 
the  matrix  and  through  a  modulus  degradation  routine.  The  first  part  of  the  study  uses  the 
experimental  data  from  a  range  of  glass  bead/HTPB  composites  to  back  calculate  the  model 
parameters.  The  results  showed  that  the  model  gave  a  good  representation  of  the  processes 
believed  to  control  mechanical  behavior.  These  processes  include  partial  particle  debonding 
and  progressive  debonding  from  the  largest  to  smallest  particles  throughout  the  strain 
history.  The  second  part  of  the  study  examines  the  sensitivity  of  the  model  results  to  small 
changes  in  the  adjustable  input  parameters.  The  residual  bond  in  a  debonded  particle  was 
found  to  have  a  dominating  effect  on  the  calculated  results.  Based  on  the  sensitivity  results, 
“best  guess”  interaction  and  debonding  parameters  were  selected  to  examine  the  predictive 
capability  of  the  model.  For  glass  bead/HTPB  composites,  the  predicted  composite  stresses 
were  within  10%  of  the  experimental  data.  Dilatation  was  usually  over-predicted.  For  glass 
bead/polyethylene  and  glass  bead/polyurethane  data  found  in  the  literature,  predicted 
composite  stresses  were  within  15%  to  24%,  respectively.  The  results  showed  that  the 
model  was  capable  of  predicting  the  mechanical  behavior  of  composites  comprised  of  glass 
beads  in  HTPB,  PU  or  HDPE  matrices  as  long  as  characteristic  adhesive  parameters  were 
available  for  each  system. 


RESUME 


Un  modele  micromecanique  pour  l’analyse  du  comportement  mecanique  de  com¬ 
posites  charges  est  presente.  Les  effets  non-lineaires  sont  introduits  dans  le  modele  a  Paide 
d’une  description  elastique  non-lineaire  de  la  matrice  et  d’un  algorithme  de  degradation  du 
module.  Dans  la  premiere  partie  de  P  etude,  les  parametres  du  modele  sont  estimes  a  l’aide 
de  donnees  experimentales  obtenues  sur  une  gamme  de  composites  constitues  de  billes  de 
verre  et  de  polybutadiene  a  terminaisons  hydroxyles  (PBHT) .  Les  resultats  ont  montre  que 
le  modele  donne  une  bonne  representation  des  processus  qui  controlent  le  comportement 
du  composite.  Ces  processus  incluent  le  decollement  partiel  au  niveau  de  Pinterface  parti- 
cules/matrice  et  le  decollement  progressif  des  plus  grandes  aux  plus  petites  particules  tout 
au  long  du  processus  de  deformation.  Dans  la  deuxieme  partie  de  l’etude,  la  sensibilite  du 
modele  aux  petites  variations  des  parametres  estimes  est  examinee.  L’adhesion  residuelle 
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de  particules  partiellement  liberties  de  la  matrice  s’est  revelee  avoir  un  effet  dominant  dans 
la  solution.  Avec  ces  resultats,  les  parametres  estimes  pour  les  facteurs  d’interaction  et  de 
decollement  ont  ete  choisis  pour  etudier  la  capacite  du  modele  a  predire  le  comportement 
mecanique  de  certains  composites.  Pour  les  composites  billes  de  verre/PBHT,  une  difference 
de  10%  entre  les  predictions  et  les  donnees  experimentales  a  ete  observee,  la  dilatation  etant 
habituellement  surestimee.  Les  donnees  tirees  de  la  litterature  pour  des  composites  billes 
de  verre/poly ethylene  haute  densite  (PEHD)  et  billes  de  verre/polyurethanne  (PU)  sont 
predites  dans  une  marge  de  15%  et  24%  d’erreur  respectivement.  Cette  etude  a  demontre 
qu’il  est  possible  de  predire  adequatement  le  comportement  mecanique  des  composites  a 
base  de  billes  de  verre  dans  des  matrices  PBHT,  PU  ou  PEHD  a  condition  que  les  valeurs 
caracteristiques  du  parametre  d’adhesion  soient  disponibles  pour  chaque  systeme. 
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EXECUTIVE  SUMMARY 


Propellants  are  presently  characterized  from  a  macroscopic  point  of  view.  This 
means  that  the  mechanisms  that  govern  material  behavior  are  lumped  together  and  mea¬ 
sured  as  a  unit  to  produce  a  material  property.  This  approach  does  not  provide  the  quan¬ 
titative  information  required  for  modifying  a  formulation.  To  meet  this  need,  an  analytical 
model  that  predicts  the  material  properties  from  knowledge  of  factors  such  as  particle  size 
distribution,  volume  fraction  of  particles,  adhesion  energy  and  polymer  properties  is  re¬ 
quired.  This  ability  to  predict  mechanical  properties  has  important  consequences  for  the 
determination  of  rocket  motor  service  life.  If  the  properties  of  the  motor  grain  can  be  pre¬ 
dicted  before  the  propellant  is  cast,  motor  service  life  can  be  determined.  If  the  calculated 
service  life  is  deemed  too  short,  the  model  can  be  used  to  guide  the  type  of  adjustments  that 
need  to  be  made  to  extend  the  service  life  of  the  motor.  This  capability  would  represent 
major  savings  in  development  and  life  cycle  management  costs  because  service  life  related 
problems  could  be  resolved  before  the  motor  is  fielded. 

In  recent  years,  researchers  in  the  propellant  industry  have  begun  to  use  composite 
materials  concepts  for  predicting  the  stress-strain  behavior  of  propellants.  These  concepts, 
based  on  a  microscopic  point  of  view,  take  into  account  the  size,  shape  and  quantity  of  filler 
introduced  into  polymeric  matrices.  Previously,  the  merits  of  a  micromechanical  model 
based  on  an  improved  Mori-Tanaka  (M-T)  method  was  evaluated.  Results  showed  that 
at  high  inclusion  volume  fractions,  correct  modulus  predictions  could  only  be  made  by 
accounting  for  particle  interaction  effects.  The  performance  of  this  model  was  limited  by 
the  assumed  linear  elastic  matrix. 

In  this  report,  a  new  implementation  of  the  M-T  micromechanical  model  that  ac¬ 
counts  for  a  nonlinear  elastic  matrix  was  developed.  The  first  part  of  the  study  used 
experimental  data  from  a  range  of  glass  bead/poly  butadiene  composites  to  back  calculate 
the  model  parameters.  The  results  showed  that  the  model  gave  a  good  representation  of  the 
processes  believed  to  control  mechanical  behavior.  The  second  part  of  the  study  examined 
the  sensitivity  of  the  model  results  to  changes  in  the  input  parameters.  The  residual  bond 
in  the  debonded  particles  was  found  to  have  a  dominating  effect.  Based  on  the  sensitivity 
analyses,  “best-guess”  parameters  were  selected  to  examine  the  predictive  capability  of  the 
model  for  a  variety  of  particulate  composites.  The  results  showed  that  the  model  was  ca¬ 
pable  of  predicting  the  mechanical  behavior  as  long  as  suitable  values  for  critical  stress  and 
adhesion  energy  were  available.  Thus,  it  is  possible  to  use  this  analytical  model  to  address 
formulation  problems. 


UNCLASSIFIED 

vi 


NOMENCLATURE 

square  brackets  [  ]  denote  dimensions  of  the  variable 
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average  elastic  constants  of  composite,  [FL  2] 

elastic  constants  of  comparison  material,  [FL~2] 

elastic  constants  of  phase-r  material,  [ FL~ 2] 

volume  fraction  of  inclusions,  [— ] 

initial  volume  fraction  of  inclusions,  [— ] 

volume  fraction  of  phase-r  inclusion,  [— ] 

volume  fraction  of  voids  or  vacuoles,  [— ] 

energy  dissipated  through  surface  creation,  [ FL ] 

net  internal  strain  energy  due  to  modulus  degradation,  [FL] 

average  composite  tensile  modulus,  [ FL~ 2] 

inclusion  tensile  modulus,  [ FL~ 2] 

tensile  modulus  in  ij-direction,  [FL~2] 

matrix  tensile  modulus,  [ FL~ 2] 

reference  stress  relaxation  modulus  at  t  —  1,  [ FL~ 2] 

stress  relaxation  modulus,  [ FL~ 2] 

partial  debonding  factor,  [— ] 

average  absolute  error  for  finding  Ff,,  [— ] 

adhesion  energy,  [FL] 

apparent  adhesion  energy,  [FL] 

matrix  shear  modulus,  [ FL~ 2] 

identity  matrix,  [— ] 

matrix  bulk  modulus,  [ FL~ 2] 

composite  strain  magnification  factor,  [— ] 

exponent  in  stress  relaxation  power  law,  [— ] 

log  standard  deviation  in  particle  distribution,  [— ] 

particle  radius,  [L] 

mean  particle  radius,  [L] 

Eshelby  matrix  of  phase-r  material,  [— J 
time,  [T] 

composite  volume  dilatation,  [—] 
specimen  volume,  [L3] 
interaction  function,  [— ] 
interaction  function  multiplier,  [— ] 
average  relative  error  for  finding  Ym,  [— ] 
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critical  strain,  [L/L\ 

average  composite  strain  in  ij-direction,  [L/L\ 
average  composite  uniaxial  strain,  [L/L] 
average  uniaxial  matrix  strain,  [L/L] 
correction  matrix  of  phase-r  material,  [— ] 
Poisson  ratio  in  ij-direction,  [— ] 
matrix  Poisson  ratio,  [— ] 
critical  stress,  [FL~2] 
composite  stress  in  ij-direction,  [ FL~ 2] 
average  composite  engineering  stress,  [ FL~ 2] 

average  composite  true  stress,  [ FL~ 2] 
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1.0  INTRODUCTION 

The  prediction  of  solid  propellant  mechanical  behavior  has  attracted  the  attention 
of  many  researchers  over  the  years.  During  that  time,  much  of  the  effort  was  concentrated 
on  the  development  of  phenomenological  models  that  treated  propellant  as  a  homogeneous 
material.  Other  researchers  took  a  different  approach  and  treated  propellant  as  a  particulate 
composite.  The  micromechanical  analyses  carried  out  by  these  researchers  provided  insight 
to  the  physical  processes  that  controlled  particulate  composite  or  propellant  behavior. 

It  was  recognized  early  on  that  volume  change  was  closely  linked  to  the  nonlin¬ 
ear  behavior  a  particulate  composite  exhibited  as  it  was  loaded.  In  Refs.  1  and  2,  the 
authors  hypothesized  that  particulate  composites  exhibited  three  distinct  regions  in  their 
stress-strain  behavior.  The  initial  region  was  controlled  primarily  by  the  initial  inclusion 
concentration  and  the  matrix  properties.  A  transition  region  delimited  the  beginning  and 
completion  of  inclusion  debonding.  Application  of  strain  in  the  last  region  was  believed  only 
to  stretch  the  binder  and  enlarge  existing  vacuoles.  A  vacuole  was  defined  as  a  spheroidal 
air  pocket  which  entrapped  a  debonded  inclusion. 

A  different  hypothesis  on  inclusion  debonding  was  advanced  in  Refs.  3  and  4.  Here 
the  authors  assumed  that  inclusion  debonding  was  continuous  throughout  the  strain  history. 
Constituents  were  assumed  to  be  linear  elastic.  Their  micromechanical  model  parameterized 
several  experimentally  observed  phenomenon  such  as  the  relationships  between  reinforce¬ 
ment  and  particle  size  (Refs.  5-9),  reinforcement  and  adhesion  (Refs.  10  -  13)  and  inclusion 
concentration  and  modulus  (Refs.  14,  15)  in  a  computationally  tractable  manner.  In  the 
range  of  analysis  techniques  covering  semi-empirical  formulations  (Refs.  16,  17),  variational 
formulations  (Refs.  18  -  20)  and  approximate  methods  (Refs.  21  -  24),  their  model  fell 
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in  the  approximate  category  because  debonding  at  a  microscopic  level  was  quantified  by 
modulus  prediction  routines  that  calculated  average  composite  properties. 

An  evaluation  of  the  combined  concentration  decrease/void  addition  model  in  Refs. 
3  and  4  was  made  in  Ref.  25  using  a  glass  bead/polyethylene  composite.  The  model 
decreased  the  inclusion  concentration  as  inclusions  were  debonded  and  replaced  them  by 
equivalent  sized  voids.  A  void  was  defined  as  a  spherical  air  pocket  with  isotropic  properties. 
Following  Refs.  3  and  4,  the  linear  elastic  constituent  assumption  was  retained.  It  was 
concluded  that  the  model  could  predict  the  mechanical  behavior  of  highly  loaded  composites 
if  a  representative  adhesion  energy  was  available  and  if  matrix  nonlinearity  was  accounted 
for. 


In  Refs.  26  and  27,  the  model  in  Ref.  25  was  improved  by  implementing  a  modulus 
prediction  routine  based  on  the  Mori- Tanaka  (M-T)  method  (Ref.  28)  and  the  work  of  Ju 
and  Chen  (Ref.  29).  The  addition  of  Ju  and  Chen’s  modulus  correction  matrix  to  the 
M-T  method  accounted  for  additional  reinforcing  effects  due  to  particle  interaction.  The 
improved  M-T  routine  allowed  debonded  inclusions  to  be  modeled  as  vacuoles  by  attributing 
orthotropic  elastic  constants  to  them. 

The  merits  of  the  improved  M-T  routine  were  evaluated  using  literature  data.  Re¬ 
sults  showed  that  at  high  inclusion  volume  fractions,  correct  modulus  predictions  could  only 
be  made  by  accounting  for  particle  interaction  effects.  Comparison  of  the  new  microme¬ 
chanical  model  based  on  the  improved  M-T  method  with  experimental  data  showed  that 
modeling  debonded  particles  by  vacuoles  instead  of  voids  gave  more  representative  results. 
The  performance  of  the  new  model  was  limited  like  the  original  model  by  the  assumed  linear 


elastic  matrix. 
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In  this  document,  the  implementation  of  a  routine  in  the  M-T  based  micromechan¬ 
ical  model  to  account  for  a  nonlinear  elastic  matrix  will  be  described.  The  validity  of  the 
assumptions  on  which  the  model  is  based  will  then  be  explored.  This  will  show  that  the 
assumption  of  continuous  inclusion  debonding  throughout  the  strain  history  is  justifiable. 
A  comparison  of  calculated  and  experimentally  measured  parameters  that  are  believed  to 
control  composite  behavior  will  be  made  using  the  results  from  glass  bead/polybutadiene, 
glass  bead/HDPE  and  glass  bead/polyurethane  composite  systems.  A  sensitivity  analysis 
will  show  that  the  micromechanical  model  can  produce  accurate  results  as  long  as  suitable 
values  for  critical  stress  and  adhesion  energy  are  available.  This  work  was  performed  under 
TNS  03eel5  Service  Life  Prediction  between  July  1995' and  December  1996. 

2.0  BACKGROUND 

In  1963,  Freudenthal  and  Shinozuka  (Ref.  30)  examined  the  shrinkage  stresses 
and  strains  in  a  viscoelastic  thick-walled  cylinder  of  infinite  length.  The  main  effort  of  the 
work  was  focused  on  deriving  the  analytical  equations  to  predict  the  cylinder  stress  state. 
In  order  to  pose  a  tractable  problem,  the  material  behavior  was  idealized  by  a  standard 
viscoelastic  solid. 

Schapery  (Ref.  31),  in  1968,  developed  an  approximate  method  to  carry  out  a 
structural  analysis  of  a  long,  circular  port  grain  under  transient  and  ignition  pressurization. 
Within  a  thermodynamic  framework  that  related  the  finite  strains  to  a  set  of  generalized 
forces  through  a  virtual  work  condition,  propellant  shear  properties  were  accounted  for 
using  a  linear  viscoelastic  material  model.  Nonlinear  behavior  was  introduced  through  a 
series  of  functions  that  modified  the  constitutive  equation. 
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Farris  (Ref.  32)  developed  a  viscoelastic  constitutive  model  to  analyze  stresses 
during  unloading  and  reloading  conditions.  By  tracking  previously  experienced  maximum 
strains  in  the  strain  history  through  the  use  of  Lebesque  norms,  he  showed  that  this  measure 
could  be  used  to  represent  microstructural  damage  such  as  vacuole  dilatation. 

Lee  (Ref.  33)  and  Cost  (Ref.  34)  extended  the  commonly  used  linear  viscoelastic 
theory  to  deal  with  experimentally  observed  coupled  straining-cooling  behavior.  Lee  intro¬ 
duced  an  exponential  function  for  reduced  time  along  with  a  thermal  relaxation  function  in 
his  constitutive  equation.  Cost  used  a  power  law  form  of  reduced  time.  Additional  transient 
thermal  tests  were  needed  to  characterize  the  constants  found  in  these  new  models. 

In  1983,  Swanson  and  Christensen  (Ref.  35)  proposed  a  model  based  on  large-strain 
stress  and  strain  tensors  to  handle  geometric  nonlinearities.  Material  nonlinearities  such  as 
coupled  strain-cooling  behavior  was  handled  with  a  strain  softening  function.  Strain  rate 
related  nonlinearities  were  included  through  a  second  function  inside  the  Duhamel  integral. 
The  authors  stated  that  the  constants  in  phenomenological  formulations  could  sometimes 
be  used  to  deduce  micromechanical  mechanisms. 

Buckley  proposed  an  alternative  method  for  calculating  the  stresses  in  a  linear 
viscoelastic  solid  as  it  was  simultaneously  strained  and  cooled  (Ref.  36).  Using  a  generalized 
Maxwell  model  and  simplifying  it  to  a  thermoelastic  form  by  cooling  the  material  under  a 
special  sequence,  he  found  that  it  was  possible  to  eliminate  the  dependency  on  time.  This 
method  was  useful  as  long  as  the  cooling  rate  was  slow  enough  to  meet  his  time  criterion. 

In  Ref.  37,  Burke  proposed  a  constitutive  model  based  on  an  extended  Mooney- 
Rivlin  strain  energy  function.  Material  behavior  was  described  through  a  fourth-order  stress 
relaxation  tensor.  The  model  formulation  required  that  two  sets  of  material  constants  be 
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available  so  an  ancillary  program  was  written  to  automate  calculating  the  constants. 

Oziipek  (Ref.  38)  applied  Swanson’s  ideas  (Ref.  35)  to  a  model  originally  proposed 
by  Simo.  The  goal  was  to  predict  the  behavior  of  high-elongation  propellants.  Swanson’s 
softening  function  was  used  with  Simo’s  Cauchy-Green  based  constitutive  law.  The  influence 
of  particle  debonding  or  vacuole  formation  was  included  through  a  function  related  to 
the  bulk  modulus  and  the  invariants  of  the  strain  tensor.  Like  Burke’s  model,  additional 
characterization  tests  were  required  to  calculate  the  constants  found  in  functions. 

Ravichandran  and  Liu  (Ref.  39)  recognized  the  importance  that  particle  debonding 
had  on  the  behavior  of  particle  reinforced  composites.  They  cited  the  micromechanical 
studies  of  Anderson  and  Farris  (Ref.  3),  Mochida  (Ref.  40)  and  Mori  and  Tanaka  (Ref.  28) 
to  support  the  approach  they  took  to  formulate  a  damage-based  constitutive  model.  Damage 
was  described  through  an  internal  scalar  variable  that  was  linked  to  maximum  dilatation. 
The  damage  function  was  characterized  using  volume  dilatation  data  from  uniaxial  tests. 

It  can  be  seen  from  the  review  of  the  above  literature  that  there  has  been  a  tendency 
in  the  last  few  years  for  phenomenological  models  to  include  micromechanical  processes  like 
particle  debonding.  It  has  been  recognized,  though,  that  micromechanical  and  phenomeno¬ 
logical  techniques  are  complementary  approaches.  The  micromechanics  provide  more  in¬ 
sight  into  the  physical  processes  that  control  behavior  while  phenomenology  provides  better 
computational  efficiency  (Ref.  35). 

Many  of  the  micromechanical  models  applicable  to  solid  propellants  in  particular 
and  particulate  composites  in  general  have  been  developed  in  the  past  ten  years.  With 
Weng’s  development  of  a  closed-form  technique  to  calculate  the  effective  modulus  of  an 
anisotropic  composite  in  1984  (Ref.  41),  an  entirely  new  generation  of  micromechanical 
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models  have  appeared  in  the  literature.  The  following  section  summarizes  the  current  re¬ 
search  taking  place  in  micromechanical  modeling  and  shows  how  they  lead  to  the  objectives 
set  out  for  this  report. 

In  1988,  Tandon  and  Weng  (Ref.  42)  developed  an  approximate  micromechan¬ 
ical  technique  to  predict  the  elasto-plastic  behavior  of  particulate  composites  like  silica 
reinforced  epoxy.  The  analysis  was  based  on  Weng’s  earlier  work  on  the  prediction  of  par¬ 
ticulate  composite  elastic  properties  using  Eshelby’s  solution  of  an  ellipsoidal  inclusion  and 
Mori-Tanaka’s  (M-T)  concept  of  average  stress  and  strain  (Ref.  41).  Their  analysis  exam¬ 
ined  a  particulate  composite’s  response  to  monotonic  proportional  loading.  This  allowed 
them  to  use  secant  moduli  to  characterize  the  weakening  constraint  power  of  the  matrix  as 
opposed  to  earlier  analyses  that  used  an  additional  eigenstrain  term.  It  also  permitted  the 
solution  to  be  cast  in  terms  of  deformational  theory.  Inclusions  were  assumed  to  be  well 
dispersed  and  perfectly  bonded  in  the  matrix. 

Qiu  and  Weng  (Ref.  24)  continued  the  work  from  Ref.  42  to  include  porous  com¬ 
posites.  They  further  justified  the  use  of  a  matrix  secant  moduli  in  the  M-T  theory  by 
pointing  out  that  it  allowed  one  to  use  the  results  of  many  well-developed  linear  theories 
to  approximate,  in  a  tractable  manner,  nonlinear  behavior.  Qiu  introduced  changes  in  the 
way  effective  stress  was  calculated  to  allow  prediction  of  pore  expansion  under  a  hydro¬ 
static  stress.  The  effects  of  spherical  and  spheroidal  voids  on  composite  behavior  could  be 
calculated  by  means  of  the  M-T  technique. 

Following  (Ref.  42),  Tzeng  developed  an  M-T  based  micromechanical  model  to 
analyze  short  fiber/whisker  reinforced  unidirectional  composites,  such  as  SiC  whisker  rein¬ 
forced  aluminum,  undergoing  elastic/plastic  multiaxial  deformation  (Ref.  43).  He  stated 
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that  the  secant  moduli  approach  in  Ref.  42  allowed  a  better  treatment  of  strain  hardening 
in  the  matrix  than  earlier  methods.  However,  the  legitimacy  of  the  M-T  technique  could  be 
suspect  at  high  volume  fractions.  The  analysis  assumed  the  inclusion  to  deform  elastically 
while  the  matrix  deformed  plastically. 

Liming  (Ref.  44)  used  the  Eshelby  equivalent  inclusion  method  and  the  M-T  tech¬ 
nique  to  analyze  nonlinear  elastic  and  viscoelastic  particulate  composites.  Under  the  as¬ 
sumptions  that  the  matrix  Poisson  ratio  was  constant  and  the  inclusions  were  rigid,  he 
showed  that  the  disturbed  strain  and  the  eigenstrain  in  the  Eshelby  method  could  still  be 
related  through  the  Eshelby  tensor  for  a  nonlinear  matrix.  He  also  showed  that  it  was  jus¬ 
tifiable  to  approximate  nonlinear  behavior  through  a  linear  substitution  method  where  the 
strains  in  a  constitutive  equation  could  be  replaced  with  strains  modified  by  an  Eshelby- 
based  tensor.  Nonlinear  elasticity  was  modeled  through  a  third-order  polynomial  based  on 
strain  and  viscoelasticity  was  quantified  through  the  Duhamel  integral.  No  experimental 
data  was  presented  to  support  the  theoretical  work. 

In  1994,  Ju  and  Chen  (Ref.  45)  presented  a  framework  to  predict  the  elasto-plastic 
behavior  of  a  two-phase  particle-reinforced  metal  matrix  composite.  The  inclusions  were 
assumed  to  remain  elastic  while  the  matrix  could  be  elastic  or  plastic  depending  on  the 
local  stress  and  deformation.  In  their  analysis,  in  addition  to  accounting  for  a  composite’s 
dependency  on  constituent  phase  properties,  volume  fraction  and  inclusion  micro-geometry, 
they  were  able  to  incorporate  a  technique  to  account  for  the  effect  that  inclusion  interac¬ 
tion  had  on  overall  mechanical  behavior.  In  previous  studies  (Refs.  29,  46),  they  showed 
the  M-T  solution  was  valid  for  composites  containing  dilute  concentrations  of  inclusions. 
With  an  interacting  solution,  composite  properties  could  be  accurately  predicted  for  mate¬ 
rials  containing  up  to  an  inclusion  volume  fraction  of  0.45.  Inclusions  were  assumed  to  be 
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uniformly  sized  and  perfectly  bonded  to  the  matrix. 

Chen  et  al.  (Refs.  47,  48)  studied  the  nonlinear  behavior  of  a  particulate  reinforced 
Mooney-Rivlin  rubber  composite  using  the  M-T  method.  It  was  shown  how  secant  mod¬ 
uli  appropriate  for  inclusion  in  a  M-T  formulation  could  be  derived  from  a  Mooney-Rivlin 
description  of  the  matrix.  Since  they  assumed  inclusions  were  perfectly  bonded,  nonlinear¬ 
ity  came  strictly  from  the  nonlinear  matrix  behavior.  Predictions  were  compared  to  ex¬ 
perimental  data  for  glass  bead/hydroxl-terminated  polybutadiene  and  glass  bead/silicone 
composites  filled  to  a  volume  fraction  of  0.20. 

A  recent  article  by  Favier  et  al.  (Ref.  49)  addressed  the  issue  of  micromechanic 
damage  due  to  interaction  of  the  matrix  with  inclusions.  They  were  interested  in  simulating 
the  nucleation  and  evolution  of  damage  in  two-phase  metallic  composites  caused  by  inclu¬ 
sion  fracture  or  decohesion.  Inclusion  fracture  was  determined  by  comparing  the  inclusion 
stress  to  a  critical  fracture  stress.  Decohesion  was  detected  by  comparing  the  inclusion 
normal  stress  to  a  critical  decohesion  stress.  Once  an  inclusion  was  damaged,  zero  stiffness 
was  assigned  to  the  particle  in  the  direction  of  stress  and  lateral  strains  were  set  to  zero. 
This  effectively  created  an  anisotropic  particle.  The  Eshelby  equivalent  inclusion  method 
along  with  an  elasto- plastic  self-consistent  model  was  used  to  study  damage  in  a  precipitate 
reinforced  A13004-H19  metal. 

Another  approach  was  taken  by  Zhao  and  Weng  (Ref.  50)  to  model  damage  due  to 
inclusion  debonding  in  a  two-phase  elasto-plastic  composite  containing  aligned  oblate  inclu¬ 
sions.  The  study  focused  on  the  behavior  of  a  hydrostatically  loaded  metal  matrix  composite 
as  a  function  of  inclusion  shape,  inclusion  concentration  and  interfacial  strength.  The  pro¬ 
cedure  for  calculating  overall  stress  state  followed  the  work  of  Qiu  (Ref.  24).  The  analysis 
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assumed  a  weak  interfacial  tensile  strength  so  that  matrix  cracking  could  be  neglected. 
Debonding  was  parameterized  using  a  Weibull  statistical  function  so  that  the  probability 
of  debonding  was  calculated  as  a  function  of  hydrostatic  stress.  Interfacial  strength  was 
characterized  by  the  Weibull  scale  and  shape  parameters.  Yamada  et  al.  (Ref.  51)  also 
used  a  Weibull  function  to  describe  debonding  but  they  made  their  function  dependent  on 
particle  diameter  too.  Model  performance  in  (Ref.  50)  was  evaluated  using  a  hypothetical 
boron-aluminum  metal  matrix  composite. 

The  Eshelby  and  Mori-Tanaka  based  analyses  provide  a  new  avenue  to  describe 
the  relationships  between  the  components  in  a  particulate  composite  and  the  resulting 
mechanical  behavior.  As  shown,  Favier  et  al.  (Ref.  49)  used  anisotropic  properties  to 
model  debonded  inclusions.  Ju  and  Chen  (Ref.  45)  improved  the  Mori-Tanaka  predictions 
by  accounting  for  particle  interaction.  Tandon  and  Weng  (Ref.  42)  showed  that  matrix 
secant  modulus  could  be  used  to  characterize  the  weakening  constraint  power  of  the  matrix. 
Liming  (Ref.  44)  introduced  matrix  nonlinearity  through  a  nonlinear  elastic  representation. 
These  concepts  form  the  basis  of  a  new  micromechanical  model  for  particulate  composites. 

3.0  NONLINEAR  ELASTIC  MICROMECHANICAL  MODEL 

This  section  will  outline  the  equations  that  define  the  nonlinear  elastic  microme¬ 
chanical  model.  The  development  will  begin  with  a  statement  of  the  governing  energy 
equation  and  then  move  to  a  description  of  improved  M-T  modulus  prediction  routine.  The 
implementation  of  the  nonlinear  matrix  properties  will  then  be  discussed. 
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3.1  Governing  Energy  Equation 


For  any  deformable  material,  the  state  of  stress  and  strain  in  a  structure  can  be 
calculated  for  a  system  of  loads  or  displacements  using  the  first  law  of  thermodynamics.  In 
the  case  of  particulate  composites,  external  work  is  not  only  stored  as  internal  strain  energy 
but  is  dissipated  through  the  process  of  particle  debonding.  It  was  shown  in  Refs.  3  and 
25,  that  this  statement  could  be  expressed  as 


‘IGc&AjVo  —  (TijSCij  -  SfTijtij 


[1] 


where  Gc  is  the  adhesion  energy  between  particle  and  matrix,  8 A  is  the  variation  or  creation 
of  surface  area  through  debonding,  <r,j  is  the  composite  stress,  is  the  composite  strain 
and  V0  is  the  specimen  volume. 


By  using  the  boundary  conditions  for  a  uniaxial  bar  under  tension  (11-direction) 
and  ambient  pressure,  the  constitutive  equation  for  an  orthotropic  material  can  be  shown 
to  be  (Ref.  26) 

/  or7 _ n _  \ 

[2] 


(—  201122^2211  ^ 
<Tu  =  lc,m  -  <?™2+<W 


where  Cu  is  the  true  stress  in  the  loading  direction  and  €cr  the  uniaxial  critical  strain. 
Critical  strain  is  defined  to  be  the  point  where  the  internal  strain  energy  in  the  composite  and 
the  energy  dissipated  through  particle  debonding  equals  the  work  put  into  the  composite. 
In  this  report,  all  stress  measures  are  in  terms  of  true  stress  while  strains  are  defined  in 
terms  of  engineering  strain.  This  distinction  is  particularly  important  when  comparisons 
are  made  between  model  results  and  experimental  data  in  Sec.  5.1.  It  can  be  seen  from  eq. 
2  that  the  average  composite  tensile  modulus  Ec  is  defined  by 


7=?  20112202211 
^  1111  7=7 


O2222  +  O2233 


[3] 
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By  differentiating  <tu  with  respect  to  the  bonded  particle  concentration,  c,-,  and 
substituting  it  and  eq.  2  into  eq.  1  gives 
GcdA 


VQ  dc * 


d  7=r  0  CU22C2211 

~i?c  11,1  - 2 


I  g  C2222  +  C'2233 
(C2222  +  C'2233)2 


(C2222  +  C'2233)2 

{ 


Uc« 


C2222  +  ^7^2233  j 


[4] 


C,2211^7C'll22  +  C'n22^7C22u)  [■  |  «c 


'}] 


This  equation  assumes  that  the  representative  volume  element  (RVE)  is  larger  than  the 
largest  particle  so  that  average  stress,  strain  and  moduli  can  be  used.  Equation  4  can  also 
be  summarized  by 

d£area  ~  d£mod  [5] 


where  d£area  is  the  energy  dissipated  through  surface  creation  and  is  equal  to  the  lefthand 
side  of  eq.  4  and  d£moi{  is  the  net  internal  strain  energy  due  to  modulus  degradation  and  is 
equal  to  the  righthand  side  of  eq.  4. 


3.2  Relationship  Between  Surface  Area  and  Inclusion  Concentration 


The  relationship  between  increase  in  surface  area  due  to  a  decrease  in  bonded 
particle  concentration  can  be  shown  to  be  (Ref.  52) 

where  r  is  the  particle  radius.  The  factor  2  in  eq.  6  accounts  for  the  fact  that  when  a 
particle  debonds,  two  new  surfaces  are  created.  The  sin  9  term  has  been  included  to  leave 
open  the  possibility  that  a  particle  may  partially  debond  9  degrees  from  the  equator  up  to 
the  pole.  When  9  —  0°,  dA/dc *  reaches  a  maximum  of  -6 V0/r. 

The  types  of  particles  used  for  this  study  were  characterized  with  a  log  normal  size 
distribution  (Ref.  25)  defined  by 


log  r  =  log  r  +  n 


[7] 
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where  r  is  the  particle  radius,  r  is  the  mean  particle  radius  and  n  is  the  log  standard 
deviation. 

3.3  Elastic  Properties  of  a  3-Phase  Composite 

Equation  4  requires  that  a  relationship  between  the  volume  fraction  of  the  con¬ 
stituent  phases  and  the  average  composite  modulus  be  known.  Initially,  a  particulate  com¬ 
posite  can  be  essentially  considered  as  a  material  containing  only  two  distinct  phases  as 
long  as  the  initial  void  fraction  is  negligible.  However,  at  some  critical  stress  level,  <Jcr, 
enough  energy  is  input  into  the  material  system  so  that  particles  begin  to  debond.  Accord¬ 
ing  to  eqs.  4  and  6,  the  larger  the  particle,  the  lower  the  energy  required  for  it  to  debond. 
When  debonding  occurs,  the  composite  changes  from  a  two-phase  composite  containing  well- 
bonded  particles  and  a  matrix  to  a  three-phase  composite  containing  well-bonded  particles, 
debonded  particles  and  a  matrix.  Modeling  debonded  particles  by  a  vacuole  representation 
gives  rise  to  orthotropic  composite  properties  because  the  stiffness  in  the  direction  of  loading 
is  lower  than  the  stiffness  perpendicular  to  the  load. 

The  average  elastic  properties  for  a  3-phase  composite  [C]  containing  well-bonded 
particles  with  properties  [C‘],  matrix  with  properties  [C°]  and  vacuoles  with  properties  \CV] 
was  derived  in  Ref.  26  to  be 
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[C]  =  [c°]  •  ([/]  +  c*'[r‘](c*‘[/-5i-r]  +  [-5i  +  [A] 

+cv[I-Sv-r>]  ■  [Sv  +  B]-1  •  [5*  +  A])-1 
+  cv  [rv]  ( cv[i  -sv-  r]  +  [5"]  +  [b\  [8] 

+c,'[/-S’-P]  •  [5*  +  A]-1  •  [Sv  +  B])-1) 


where  brackets  denote  square  matrices  and 


[A]  =  [C’-C0]"1  •  [C°], 

[B]  =  [Cv-C0]~l  ■  [C% 

cr  =  volume  fraction  of  phase-r, 
i  =  parameters  relating  to  inclusions, 

v  —  parameters  relating  to  vacuoles. 

The  Eshelby  tensor  [5]  is  dependant  on  the  matrix  Poisson  ratio  v0  and  the  inclusion 
shape.  [5]  is  defined  by  Ref.  29  as 

1 


Sijki  — 


15(1  -  u0) 


((5f0  -  1  )SijSki  +  (4  -  5u0)(SikSji  +  SnSjk)) 


[9] 


Vacuoles  have  been  modeled  as  a  spherical  inclusion  with  orthotropic  properties.  For 
a  uniaxial  bar  in  tension,  a  low  modulus  value,  F&  •  Eu,  in  the  loading  or  pole  direction  was 
used  to  represent  the  debonded  condition  and  a  high  or  inclusion  modulus  value  E22  and  E33 
in  the  equator  direction  was  used  along  with  setting  V\2  =  ^21  =  ^13  =  ^31  =  0  to  enforce  the 
lateral  constraint  condition.  The  factor  F&  was  introduced  to  allow  for  the  possibility  that 
a  particle  could  be  partially  debonded.  Since  the  M-T  formulation  can  be  applied  equally 
well  to  inclusions  with  orthotropic  properties  as  to  inclusions  with  isotropic  properties,  this 
approach  was  implemented  by  modifying  the  definition  of  the  debonded  particle’s  material 

matrix.  The  property  matrix  for  the  normal  components  of  this  orthotropic  material  was 

Fb  •  Eu(l  — 1^23^32)  0  0 

0  E22  E'22l/32 

0  E33V23  E33 


[C*]  =  m 


[10] 
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where 

m.  =  (1  —  1/23^32) -1> 

Fb  =  partial  debonding  factor, 

Ea  =  isotropic  tensile  modulus  of  particle  in  the  ii-direction, 

Vij  —  Poisson’s  ratio  of  particle  in  the  -direction. 

The  solution  in  Ref.  29  for  particle  interaction  was  integrated  into  the  M-T  for¬ 
mulation  through  a  correction  matrix,  [Tr],  This  matrix  was  derived  from  the  analysis 
of  probabilistic  pairwise  particle  interaction  of  two  identical  and  randomly  located  elastic 
spheres  embedded  in  a  comparison  material.  It  was  shown  in  Ref.  26  to  be 

[rr]=[/j+Un»'r]  in] 

where 


[7]  =  identity  matrix, 

cr  —  volume  fraction  of  phase-r, 

Y  =  Ym(l-cr), 

Ym  —  interaction  factor  multiplier, 

\Wr]  =  CiSijSki  +  bihk&jl  4-  $u5jk), 

The  definitions  for  /?,  £1  and  £2  may  be  found  in  Ref.  29.  The  term  [rr]  states  that 
reinforcement  not  only  comes  from  the  presence  of  inclusions  in  the  composite  but  that 
it  also  occurs  due  to  the  proximity  of  the  inclusions  to  one  another.  The  strength  of  the 
interaction  is  characterized  by  Ym. 


3.4  Nonlinear  Elastic  Matrix  Behavior 

The  average  composite  modulus  [C]  (eq.  8)  is  controlled  by  the  nature  of  the 
constituent  properties.  If  [C*]  and  [C°]  are  isotropic  but  [Cu]  is  orthotropic,  the  average 
modulus  will  necessarily  be  orthotropic.  If  the  [C*]  and  [Cv]  are  linear  elastic  but  [C°]  is 
nonlinear  elastic,  [C]  will  necessarily  be  nonlinear  elastic. 
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Nonlinear  elasticity  has  been  introduced  in  the  current  micromechanical  formulation 
by  modeling  the  matrix  as  an  isotropic  strain  dependent  material.  This  dependency  was 
quantified  by  the  second-order  polynomial 

E0  =  do  +  °lco  +  a2  eo2  [12] 

where  E0  is  the  tensile  secant  modulus  of  the  matrix  and  eQ  is  the  average  uniaxial  matrix 
strain.  The  matrix  Poisson’s  ratio,  v0 ,  was  assumed  to  be  constant  over  the  strain  range  of 
interest.  The  Ea  and  v0  were  converted  to  strain  dependent  bulk  Ka  and  shear  G0  secant 
moduli  (Ref.  53).  These  were  then  used  to  calculate  the  elements  in  the  matrix  secant 
modulus  [C°]  according  to  standard  relationships  (Ref.  54).  Since  [C°]  is  defined  in  terms 
of  a  secant  modulus,  [C]  is  also  a  secant  measure. 


For  a  particulate  composite  containing  an  arbitrary  number  of  phases,  the  average 
matrix  strain  was  estimated  using  a  Reuss  model  (Refs.  55,  56).  The  resulting  relationship 
between  e0  and  the  average  composite  strain  ec  for  a  one-dimensional  case  was  (Ref.  57) 


Ec 

€c  —  =  Meec 


[13] 


where  Ec  is  the  average  composite  secant  modulus  and  Mt  is  defined  as  the  composite  strain 
magnification  factor.  The  fact  that  Ec ,  E0  and  ec  are  functions  of  eQ  automatically  means 
an  iterative  solution  is  required  to  solve  eq.  8. 


3.5  Algorithm  for  Prediction  of  Mechanical  Behavior 


In  order  to  predict  the  mechanical  behavior  of  a  particulate  composite  using  eqs.  2 
to  13,  five  things  must  be  known  before  the  critical  strain,  and  the  corresponding  average 
composite  stress,  ac  can  be  calculated.  They  are: 
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1.  the  size  distribution  of  the  particles  in  the  composite, 

2.  the  particle  and  matrix  properties, 

3.  the  critical  stress  where  particle  debonding  first  begins, 

4.  the  degradation  in  composite  stiffness  as  a  result  of  particles  becoming  debonded, 

5.  the  adhesion  energy  between  particle  and  matrix. 

Particle  size  distribution  and  constituent  properties  can  be  measured  using  standard  mea¬ 
surement  techniques  (Ref.  25).  The  technique  to  evaluate  modulus  degradation  was  dis¬ 
cussed  in  Sec.  3.3.  Estimation  of  adhesion  energy  will  be  dealt  with  in  Sec  4.3.  Discussions 
on  critical  stress  and  further  comments  on  adhesion  energy  are  given  in  Sec.  5.1.2. 

When  the  above  items  have  been  quantified,  the  prediction  of  composite  mechanical 
behavior  proceeds  in  two  steps.  Up  to  the  critical  stress  cr^.,  before  any  debonding  has  oc¬ 
curred,  the  nonlinear  stress-strain  relationship  for  a  one-dimensional  case  maybe  calculated 
according  to 

€c'+1  =  (-Ec)-1  ‘  ac  [14] 

using  the  method  of  direct  substitution  (Ref.  58).  Here,  i  is  the  iteration  index,  a[  is  the 
j-th  composite  stress  (1  <  j  <  M,  at  j  =  M,  a™  -  <rcr),  E'c  is  the  average  composite 
properties  evaluated  at  e*  and  c*.+1  is  the  new  estimate  of  ec. 

After  the  critical  stress  has  been  reached,  the  solution  continues  with  the  debonding 
of  the  k-th  group  of  particles  out  of  a  total  of  K  groups  starting  from  the  largest  particle 
radius.  Particle  sizes  in  each  group  are  calculated  according  to  eq.  7.  This  determines  the 
energy  dissipated  through  new  surface  area  creation  (d£area  in  eq.  5)  and  the  concentra¬ 
tion  of  inclusions  that  have  debonded.  Calculation  of  the  net  change  in  average  composite 
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modulus  (bracketed  quantity  on  the  righthand  side  of  eq.  4)  is  carried  out  using  the  mod¬ 
ulus  degradation  routine  from  Sec.  3.3.  From  this,  the  critical  strain  is  determined.  The 
corresponding  stress  is  then  calculated  using  eq.  2  and  the  composite  properties  [(Tj  which 
lead  to  the  critical  strain.  Matrix  strain  is  updated  along  with  each  critical  strain  calcu¬ 
lated  (eq.  13).  As  the  process  of  debonding  groups  of  inclusions  carries  on,  the  average 
mechanical  behavior  of  the  composite  is  described  by  the  pairs  of  critical  strain-composite 
stress  points. 


4.0  EXPERIMENTAL 


4.1  Materials 


A  model  composite  material  was  fabricated  using  hydroxyl-terminated  polybuta¬ 
diene  (HTPB)  and  spherical  glass  beads.  The  HTPB  (Arco  Chemicals)  had  a  nominal 
molecular  weight  of  2800  g/mol,  a  polydispersity  index  of  1.8  and  a  hydroxyl  equivalent 
weight  of  40.2  mg  KOH/g.  Four  types  of  glass  beads  were  purchased  from  Potter’s  Indus¬ 
tries  Inc.  (La  Prairie,  Qc,  Canada)  for  the  experiments.  The  first  type  was  as-received 
beads  with  an  advertised  average  diameter  of  25  //m  (Stock  2900).  The  second  type  was  as- 
received  beads  with  an  advertised  average  diameter  of  100  //m  (Stock  2227).  The  third  and 
fourth  types  were  Stock  2900  and  Stock  2227  treated  with  a  silane  coupling  agent  known 
as  CP-03.  This  agent  is  optimized  for  use  with  epoxy  and  urethane  resin  systems. 

The  test  matrix  given  in  Table  I  was  designed  to  examine  the  performance  of  the 
micromechanical  model  given  different  particle  size  distributions,  adhesion  energies,  inclu¬ 
sion  volume  fractions  and  loading  rates.  Each  composite  designation  is  composed  of  four 
letters.  The  first  letter  indicates  the  type  of  surface  treatment  (N-untreated,  T-treated). 


UNCLASSIFIED 

18 


The  second  letter  indicates  the  initial  inclusion  volume  fraction  (3-30%,  5-50%).  The  third 
letter  identifies  the  crosshead  displacement  rate  used  in  the  tensile  test  (M-10  mm/min, 
F-100  mm/min)  and  the  fourth  letter  indicates  the  average  bead  size  (S-25  //m,  L-100  /im). 

The  model  composite  was  fabricated  in  two  steps.  A  pre-mix  was  prepared  for 
casting  by  mixing  in  0.5%  w/w  A02246  (Cyanamid)  anti-oxidant  agent  using  a  Design 
Integrated  Technologies  10CV  helicone  vertical  mixer.  Mixing  time  was  2  hours  at  60°C. 
The  polymer  was  then  left  to  stand  under  vacuum  for  2  days  at  60°C  to  ensure  that  trace 
moisture  had  been  eliminated.  On  the  day  of  casting,  0.01%  w/w  di-ter-butyl-dilaurate 
(DBTDL)  cure  catalyst  from  Aldrich  Chemical  was  added  to  the  pre-mix  along  with  the 
required  quantity  of  glass  beads  and  mixed  for  30  minutes.  To  achieve  an  optimal  NCO/OH 
ratio  of  1.1,  6.55%  w/w  tolylene  diisocyanate  (TDI,  comprised  of  97%  2,4  and  3%  2,6 
isomers)  from  Kodak  Ltd.  was  added  and  the  entire  mixture  was  mixed  again  for  30 
minutes.  At  the  end  of  the  mix  cycle,  the  composite  was  cast  into  150  mm  x  150  mm 
x  100  mm  blocks  for  specimen  preparation.  All  mixing  and  casting  operations  took  place 
under  vacuum.  The  blocks  were  left  to  cure  for  6  days  at  60°C  under  ambient  pressure. 

4.2  Test  Procedures 

Uniaxial  specimens  were  prepared  by  sawing  the  composite  blocks  into  12.5  mm 
slabs  and  then  die  cutting  JANNAF  Class  C  type  specimens  from  the  slabs.  The  9.5  mm  X 
12.5  mm  cross-sectional  area  made  this  specimen  well-suited  for  mechanical  characterization 
of  loaded  materials  (Refs.  25,  59).  Prior  to  testing,  the  specimens  were  pre-conditioned  in 
a  vacuum  desiccator  at  room  temperature  for  at  least  24  h. 

Uniaxial  testing  was  carried  out  on  the  composites  in  an  INSTRON  4206  machine 
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equipped  with  either  an  OPTRA  Laser  Extensometer  (OPTRA  Inc.,  Peabody,  MA)  or  a 
Farris  Gas  Dilatometer  (Richard  Farris,  Leeds,  MA)  according  to  CPIA  procedures  (Ref. 
59).  One  series  of  tests  were  carried  out  with  the  laser  extensometer  to  calculate  the  effective 
gage  length  (EGL)  of  the  model  composites.  Details  of  this  procedure  were  given  in  Ref.  25. 
Another  series  of  tests  were  carried  out  in  the  gas  dilatometer  to  simultaneously  measure 
the  stress-strain  behavior  as  well  as  the  dilatation-strain  behavior.  Details  of  the  how  this 
instrument  operates  is  given  in  Refs.  57  and  60.  The  EGL  was  needed  for  the  dilatometer 
tests  because  composite  strain  could  only  be  calculated  using  crosshead  displacement.  Three 
specimens  were  tested  for  each  combination  shown  in  Table  I.  Since  data  scatter  was  low, 
the  test  best  representing  the  average  behavior  of  the  three  specimens  was  selected  for  use 
in  Sec.  5.0.  Tensile  tests  on  pure  polymer  were  conducted  according  to  ASTM  D638  (Ref. 
61). 

Initial  inclusion  volume  fraction  cl0  was  measured  using  density  measurements  of 
pure  polymer  blocks  and  composite  blocks.  Density  measurements  were  carried  out  using 
the  immersion  method  as  specified  in  ASTM  D792-86  (Ref.  62).  Initial  volume  fraction  was 
calculated  using  a  rearranged  form  of  the  rule  of  mixtures  equation  for  composite  density 
(Ref.  52). 
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TABLE  I 


Test  matrix  for  glass  bead  /  poly  butadiene  composites 


Xhead  Rate 

Treat- 

avg.  c'0 

Avg.  dia. 

Designation 

(mm/min) 

ment 

(%) 

(/xm) 

30 

25 

10 

none 

30 

100 

50 

25 

50 

100 

25 

10 

silane 

■mm 

100 

50 

25 

T5MS 

50 

100 

T5ML 

mm 

25 

100 

none 

mm 

100 

50 

25 

N5FS 

50 

100 

N5FL 

mm 

25 

T3FS 

100 

silane 

. m 

100 

T3FL 

50 

25 

T5FS 

50 

100 

T5FL 

the  initial  inclusion  volume  fraction 
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4.3  Estimation  of  Adhesion  Energy 


Adhesive  strength  has  been  measured  using  a  number  of  techniques  (Refs.  63  -  65). 
As  noted  by  Mower  (Ref.  66),  these  techniques  evaluated  the  adhesive  strength  qualitatively 
through  assumed  adhesive  characteristics  or  fractographic  evidence.  In  Ref.  66,  the  authors 
evaluated  adhesive  strength  between  particle  and  matrix  in  terms  of  a  hydrostatic  stress 
using  a  uniaxial  test.  Their  test  specimen  consisted  of  a  particle  embedded  in  the  center  of 
a  matrix  bar  that  was  specially  shaped  to  induce  a  triaxial  state  of  stress  at  that  point. 


The  approach  used  here  was  similar  in  concept  to  that  used  by  Mower.  However, 
instead  of  measuring  adhesive  strength,  adhesion  energy  was  desired.  The  basis  of  this 
measurement  came  from  a  simplified  form  of  eq.  4  (Ref.  26), 


GCAA  1  A Ec  2 
V0  Ac,  ~  2  '  Ac,-  Ccr 


[15] 


Referring  to  Figs.  1  and  2,  eq.  15  states  that  if  we  load  the  specimen  shown  in  Fig.  1  in 
tension,  at  some  point  e^.,  there  would  be  enough  work  input  into  the  specimen  to  cause 
the  glass  bead  to  debond  (point  A  in  Fig.  2).  When  this  occurs,  there  will  be  a  sudden 
loss  in  reinforcement  and  therefore  overall  stiffness,  so  the  load  will  fall  to  point  B.  If  we 
unload  from  point  B  back  to  zero  load  (point  O),  the  area  OABO  represents  the  energy 
dissipated  to  create  new  surface  area.  This  energy  is  quantified  by  the  righthand  term  of 
eq.  15.  Since  the  geometry  of  the  specimen  and  inclusion  are  known  and  the  amount  surface 
area  debonded  is  observed  during  the  test,  adhesion  energy  Gc  can  be  calculated. 


The  shape  of  the  specimen  shown  in  Fig.  1  was  designed  using  a  finite  element 
model  to  concentrate  the  stress  field  around  the  pole  of  the  glass  bead  and  to  minimize  the 
peel  stresses  at  the  edges  of  specimen  grips.  The  specimen  volume  was  selected  according 
to  the  size  of  beads  available  so  that  the  AEC/Aci  would  be  measurable  in  terms  of  a  drop 


True  Stress  (MPa) 
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0 


0 


- 52.07  mm - *-| 

FIGURE  1  -  Geometry  of  test  specimen  used  to  measure  adhesion  energy 


FIGURE  2  -  Schematic  of  energy  loss  due  to  particle  debonding 
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in  load  at  a  reasonable  crosshead  displacement.  The  input  file  for  the  ANSYS  finite  element 
program  may  be  found  in  Appendix  A. 

Six  specimens  were  fabricated  using  ordinary  soda-lime  beads  (ie.  glass  marbles) 
and  HTPB  polymer  with  a  NCO/OH  ratip  of  1.0.  The  NCO/OH  ratio  was  lowered  slightly 
to  better  match  the  matrix  modulus  measured  using  specimens  from  the  cast  blocks  in  Sec. 
4.1.  The  polymer  modulus  was  verified  using  specimens  that  were  fabricated  without  beads. 

To  fabricate  the  specimens,  the  beads  and  grip  surfaces  were  degreased  using 
dichloromethane.  The  lower  grip  was  then  set  upright  and  the  clamshell  Teflon  molds  con¬ 
forming  to  the  geometry  shown  in  Fig.  1  clamped  on.  The  degassed  polymer  was  poured 
into  the  mold  while  it  was  still  at  60°C.  Afterwards,  the  top  grip  was  pressed  on  and  the 
excess  polymer  allowed  to  exit  through  the  vents.  This  created  essentially  void-free  speci¬ 
mens.  Any  air  bubbles  that  did  become  trapped  were  usually  small  and  located  in  the  low 
stress  areas  in  the  specimen.  These  had  negligible  effect  on  the  overall  results. 

The  specimens  were  tested  at  two  loading  rates.  Three  specimens  with  beads  and 
one  specimen  without  beads  were  tested  at  a  crosshead  rate  of  10  mm/min.  The  remaining 
specimens  were  tested  at  a  rate  of  100  mm/min.  The  purpose  of  these  experiments  was  to 
obtain  an  idea  of  the  relative  change  in  adhesion  energy  for  this  type  of  composite  at  the 
two  test  speeds.  No  attempts  were  made  to  characterize  the  actual  adhesion  energy  that 
existed  between  as-received  glass  beads  or  CP03-treated  beads  and  HTPB.  Therefore,  the 
values  estimated  with  these  single-bead  tests  are  not  meant  to  be  a  representative  measure 
of  the  adhesion  energy  present  in  the  composites  fabricated  in  Sec.  4.1  since  the  surface 
treatments  are  obviously  different. 
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5.0  ANALYSIS  AND  DISCUSSION 

The  micromechanical  model  described  in  Sec.  3.0  contains  adjustable  parameters 
that  must  be  defined  before  the  model  can  be  run.  For  example,  the  user  must  specify  the 
appropriate  value  for  the  partial  debonding  factor,  F&  (eq.  10).  Questions  of  how  one  selects 
these  values  and  how  sensitive  the  predictions  are  to  small  changes  in  these  values  naturally 
arise. 

The  first  question  will  be  dealt  with  in  Sec.  5.1.  Here  the  experimental  data  will 
be  used  to  deduce  the  values  for  the  adjustable  parameters.  This  analysis  will  also  allow 
critical  examination  of  the  assumptions  and  theory  presented  in  Sec.  3.0.  The  second 
question  will  then  be  examined  in  Sec.  5.2  in  light  of  the  parameters  obtained  in  Sec.  5.1. 
In  this  section,  since  uniaxial  tests  were  carried  out,  the  notation  used  will  refer  to  scalar 
values  of  tensile  secant  modulus  E ,  stress  a  and  strain  e.  Also,  superscript  “e”  will  be  used 
to  denote  experimental  data  while  superscript  “c”  will  be  used  to  denote  calculated  results. 
Comparisons  will  be  made  at  discrete  points  so  the  differential  operator  has  been  replaced 
by  a  A  operator  to  reflect  this. 

5.1  Determination  of  Model  Parameters 

5.1.1  Procedure 


The  known  quantities  in  the  model  are  the  experimentally  measured  composite 
engineering  stress  cr|"5,  composite  strain  e®,  dilatation  AVe/V,  initial  inclusion  fraction  c'0, 
particle  distribution  (r  and  n  in  eq.  7),  isotropic  matrix  properties  Ea  and  t/0,  and  isotropic 
particle  properties,  Ft-  and  j/,-.  The  experimental  true  stress  aj  and  secant  modulus  El  can 
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FIGURE  3  -  Experimental  mechanical  behavior  of  composite  T3FS 


> 


be  calculated  through  the  relationships  (Ref.  57) 


-  rren3 


1  +  ec 


1  +  AVe/V 


El 


=  at 


(4) 


[16] 

[17] 


An  example  of  the  experimental  data  is  shown  in  Fig.  3  for  composite  T3FS.  As 
the  composite  is  strained,  no  significant  change  in  volume  occurs  until  ec  «  0.12.  The  stress 
corresponding  to  this  strain  was  defined  in  Sections  3.3  and  3.5  as  the  critical  stress  As 
strain  increased,  the  cross-sectional  area  reduced  according  to  the  instantaneous  composite 
Poisson  ratio.  This  resulted  in  the  growing  difference  seen  between  composite  true  stress 
and  engineering  stress. 

The  unknown  parameters  in  the  model  are  the  interaction  factor  multiplier  Ym 
(eq.  11)  and  the  partial  debonding  factor  Ff,  (eq.  10).  Quantities  such  as  the  vacuole 
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volume  fraction  cv  (eq.  8)  and  the  adhesion  energy  Gc  (eq.  4),  even  though  not  measured 
directly,  can  be  deduced  using  the  experimental  data  and  the  micromechanical  model.  Ym 
can  be  determined  using  e®  and  F|  data  up  to  acr.  After  debonding  occurs,  e®,  F®  and 
AVe /V  are  needed  to  determine  F\,  and  to  deduce  cv. 

The  algorithm  used  to  determine  Ym  is  shown  in  Fig.  4.  The  routine  starts  off  by 
assuming  Ym  —  1.  It  proceeds  by  estimating  the  i-th  iteration  of  matrix  strain  e'0  using  the 
j-th  pair  of  El  —  e®  points  in  the  data  set.  This  value  is  used  in  the  M-T  routine  (eq.  8)  to 
calculate  the  El  (eq.  3)  that  corresponds  to  e*0.  The  same  is  done  for  E0  (eq.  12).  A  new 
value  of  e*,+1  is  calculated  using  F®,  E0  and  e®  (eq.  13).  If  the  value  of  e’+1  «  tl0  then  the 
solution  for  the  matrix  strain  has  converged  and  the  j-th  pair  of  calculated  points  El  -  c®  is 
stored.  This  continues  for  the  M  data  points  leading  up  to  acr.  At  j  =  M,  the  relative  error 
between  the  experimental  modulus  El  and  calculated  modulus  El  at  each  e®  is  calculated. 
If  the  average  relative  error  Y^[r  between  F®  and  El  is  greater  than  the  tolerance,  Ym  is 
adjusted  and  the  entire  procedure  repeated.  When  Y£rr  <  tol  the  appropriate  interaction 
multiplier  for  the  composite  has  been  found. 

The  algorithm  used  to  determine  F&  is  similar  to  that  used  for  finding  Ym  except  this 
time,  experimental  values  for  modulus  and  dilatation  are  used  (Fig.  5).  The  Ym  previously 
calculated  is  assumed  to  remain  constant  for  the  entire  loading  history.  The  routine  starts 
off  by  assuming  F&  =  0,  ie.  the  inclusion  debonds  completely  with  no  residual  stiffness  in 
the  loading  direction.  A  quantity  of  vacuoles  are  also  assumed  created  as  a  result  of 
debonding  at  the  j-th  pair  of  F®  -  and  AVe/V  -  e®  data  points.  As  before,  the  solution 
for  c*  is  allowed  to  converge.  If  F®  ^  F®  then  c{  is  increased  until  this  condition  is  met. 
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The  corresponding  dilatation  AVC/V  is  calculated  by 

C2211 

C2222  +  C2233 

The  calculated  pairs  of  AVC /V  -  e®  are  stored  for  j  =  M  +  1  to  N  where  N  is  the 
total  number  of  data  points.  At  j  =  N,  the  average  absolute  error  F§rr  between  AVC/V 
and  AVe/V  is  calculated.  If  the  error  is  greater  than  the  tolerance  then  Ft,  is  adjusted 
and  the  whole  procedure  repeated  until  the  tolerance  value  is  reached.  When  Fgrr  <  tol , 
the  appropriate  debonding  factor  for  the  composite  has  been  found.  Since  a  constant  Ft, 
is  calculated,  it  represents  the  average  degree  of  debonding  for  particles  of  all  sizes  in  the 
composite.  The  FORTRAN  program  used  for  the  back-calculation  of  Ym  and  Ft,  may  be 
found  in  Appendix  B. 
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An  apparent  adhesion  energy  G^pp  can  be  calculated  from  the  experimental  El  —  e® 
data  and  the  parameterized  particle  distribution  (eq.  7)  by  assuming  that  at  the  end  of  data, 
the  total  surface  area  debonded  according  to  eq.  6  and  Sec.  3.5  equals  the  total  surface  area 
debonded  experimentally  (FORTRAN  listing  in  Appendix  B).  In  other  words, 

£A  =  [19] 

k-1  j= 1 

Rearrangement  of  eq.  19  in  terms  of  eq.  15  gives 


The  summation  of  energy  for  A is  straight  forward  since  it  is  simply  the  sum  of 
all  the  energies  dissipated  at  the  N  experimental  data  points.  The  summation  for  A ££rea  is 
not  as  obvious  because  the  total  energy  depends  on  the  value  selected  for  the  total  number 
of  points  K  used  to  sub-divide  the  particle  distribution.  If  K  is  large,  the  resulting  sum 
of  AA/Aci  will  be  large  because  there  will  be  many  1/r  terms  to  add  up.  The  opposite  is 
true  when  K  is  small.  The  appropriate  K  was  selected  by  matching  the  average  Ac,-  from 
the  particle  distribution  with  the  average  Ac*  deduced  from  the  experimental  data. 

5.1.2  Results 

The  numerical  results  of  the  analyses  described  in  Sec.  5.1.1  are  shown  in  the 
lower  part  of  Tables  II  and  III.  The  upper  part  of  the  Tables  show  the  measured  model 
parameters.  From  the  note  included  in  the  Tables,  it  can  be  seen  that  the  matrix  modulus 
was  slightly  nonlinear  out  to  about  100%c  for  the  two  crosshead  rates  used.  The  tolerances 
specified  for  Y£r  ranged  from  0.5%  to  5%  while  the  tolerances  for  F§rr  ranged  from  0.001 
to  0.014.  Different  values  were  needed  because  the  degree  of  fit  between  the  experimental 
and  calculated  results  were  not  always  the  same. 
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TABLE  II 


Model  parameters  for  glass  bead/HTPB  tested  at  100  mm/min 


Composite 

T3FS 

T3FL 

T5FS 

T5FL 

N3FS 

N3FL 

N5FS 

N5FL 

r  (^tm) 

15.5 

65 

15.5 

65 

15.5 

65 

65 

n 

0.167 

0.0374 

0.167 

0.0374 

0.167 

0.0374 

0.0374 

< 

0.307 

0.311 

0.511 

0.517 

0.302 

0.302 

0.503 

0.504 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

Vi 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

Vo 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

Gi  (GPa) 

30 

30 

30 

30 

30 

30 

30 

30 

E0  (MPa) 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

ccr  (MPa) 

0.5 

0.5 

0.9 

MEM 

0.35 

0.30 

era 

0.8 

Pm 

1.5 

1.69 

0.98 

era 

1.67 

1.58 

Bra 

1.31 

Fb  X  1(T4 

2.6 

2.1 

1.0 

0.8 

0.8 

0.34 

i.i 

G%PP  (J/m2) 

2.33 

5.72 

3.98 

10.9 

2.24 

3.83 

1.78 

5.19 

a  E0  =  1.522255  -  0.460286e  +  0. 270235c2  (MPa) 

r,  average  particle  radius,  n  log  standard  deviation  in  radius,  c'0,  initial  inclusion  volume  fraction,  cj,  initial 
vacuole  volume  fraction,  ia,  inclusion  Poisson  ratio,  t/0,  matrix  Poisson  ratio,  Gi,  inclusion  shear  modulus, 
E0  matrix  tensile  modulus,  <xcr,  critical  stress,  Ym,  interaction  factor  multiplier,  Fb,  partied  debonding  factor, 
G“pp,  apparent  adhesion  energy. 
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TABLE  III 


Model  parameters  for  glass  bead/HTPB  tested  at  10  rnm/min 


Composite 

T3MS 

T3ML 

T5MS 

T5ML 

N3MS 

N3ML 

N5MS 

N5ML 

r  (fim) 

15.5 

65 

15.5 

65 

15.5 

65 

15.5 

65 

n 

0.167 

0.0374 

0.167 

0.0374 

0.167 

0.0374 

0.167 

0.0374 

4 

0.307 

0.311 

0.511 

0.517 

0.302 

0.302 

0.503 

0.504 

cv 

° o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

Vi 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

0.16 

V0 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

0.34 

Gi  (GPa) 

30 

30 

30 

30 

30 

30 

30 

30 

E0  (MPa) 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

see  a 

O'er  (MPa) 

0.45 

0.50 

0.65 

0.75 

0.45 

0.30 

0.40 

0.45 

Vm 

1.17 

1.26 

0.83 

1.13 

1.22 

0.92 

1.06 

1.32 

Fb  x  10~4 

2.1 

1.8 

1.0 

1.1 

0.4 

0.24 

1.0 

0.3 

G*rr  (J/m2) 

1.20 

3.65 

2.23 

6.34 

1.43 

2.22 

1.13 

2.91 

a  E0  =  1.554865  -  0.497499e  +  0.321452e2  (MPa) 

r,  average  particle  radius,  n  log  standard  deviation  in  radius,  c'0,  initial  inclusion  volume  fraction,  c",  initial 
vacuole  volume  fraction,  Ui,  inclusion  Poisson  ratio,  u0,  matrix  Poisson  ratio,  G<,  inclusion  shear  modulus, 
E0  matrix  tensile  modulus,  uCr,  critical  stress,  Ym,  interaction  factor  multiplier,  Ft,,  partial  debonding  factor, 
G“pp,  apparent  adhesion  energy. 
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FIGURE  6  -  Experimental  true  stress  results  for  treated  (Tr)  and  untreated  (NoTr) 
glass  bead/HTPB  composites  tested  at  10  mm/min 

Figures  6  to  9  (p.  33)  summarize  the  tensile  and  dilatational  behavior  observed  for 
the  composites  identified  in  the  test  matrix  (Table  I).  Generally,  the  composites  contain¬ 
ing  the  CP-03  treated  beads  had  higher  maximum  strength  and  lower  dilatation  than  the 
equivalent  composite  which  contained  as-received  beads.  The  treated  beads  also  delayed 
the  onset  of  dilatation.  For  the  c*0  =  0.3  composites,  the  initial  modulus  was  unaffected  by 
surface  treatments  or  bead  size.  However,  for  the  c'Q  =  0.5  composites,  slight  increases  in 
initial  moduli  were  seen  for  those  composites  containing  as-received  beads. 

Figures  10  to  13  (p.  37)  show  the  ability  of  the  micromechanical  model  to  reproduce 
the  experimental  data  for  composites  T3FS-N3FS,  T5FS-N5FS,  T3ML-N3ML  and  T5MS- 
N5MS  when  the  parameters  from  Tables  II  and  III  are  used.  Comparisons  for  the  complete 
set  of  composites  tested  may  be  found  in  Appendix  C.  For  most  composites,  the  calculated 
composite  stress  a%  matches  the  experimental  stress  cr®  well  up  to  the  end  of  the  data.  It 
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FIGURE  7  -  Experimental  dilatation  results  for  treated  (Tr)  and  untreated  (NoTr) 
glass  bead/HTPB  composites  tested  at  10  mm/min 


8  train 

FIGURE  8  -  Experimental  true  stress  results  for  treated  (Tr)  and  untreated  (NoTr) 
glass  bead/HTPB  composites  tested  at  100  mm/min 
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FIGURE  9  -  Experimental  dilatation  results  for  treated  (Tr)  and  untreated  (NoTr) 
glass  bead/HTPB  composites  tested  at  100  mm/min 

can  be  seen  that  the  acc  results  have  more  of  a  “knee”  when  compared  to  the  transition  seen 
in  the  experimental  data.  The  good  fit  between  calculated  results  and  experimental  data 
indicates  that  the  assumption  of  a  constant  Ym  was  a  reasonable  one  to  make. 

The  deviations  in  calculated  stress  were  closely  related  to  the  deviations  of  the  cal¬ 
culated  vacuole  fraction  ccv  from  the  experimental  vacuole  fraction  cev  (Fig.  14,  p.  39).  Since 
composite  stresses  are  calculated  from  a  current  composite  modulus  that  itself  is  dependent 
on  the  current  vacuole  fraction,  it  would  be  expected  that  the  larger  the  deviation  between 
calculated  and  experimental  c„,  the  larger  the  deviation  between  the  <7c’s.  As  foreseen,  the 
acc  to  a%  difference  is  opposite  in  sign  and  proportional  to  the  c%  to  c*  difference.  The  “knee” 
in  the  acc  —  curve  is  related  to  the  apparent  lack  of  strain  energy  available  to  debond  the 
first  set  of  particles.  For  example,  in  N5MS,  debonding  starts  at  c®  =  0.04  in  the  exper¬ 
imental  data  as  opposed  to  =  0.06  in  the  calculated  results.  The  experimental  results 
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suggest  that  it  may  require  less  internal  strain  energy  to  initiate  debonding  than  assumed 
in  the  micromechanical  model.  It  should  also  be  mentioned  here  that  the  requirement  to 
specify  acr  could  be  removed  if  a  suitable  initiation  criterion  could  be  found. 

The  calculated  dilatational  behavior  (AUC/U)  tended  to  be  on  the  stiff  side  when 
compared  to  the  experimental  dilatation  A Ve/V.  For  cases  such  as  T3FS  and  T5MS  (Figs. 
11  and  13),  the  AVC/V  results  compared  well  with  the  AUe/U  results.  For  other  cases  such 
as  T5FS,  N5FS  and  N5MS,  AVC/V  was  over  estimated  at  the  lower  c®  and  under  estimated 
at  the  higher  c®.  For  N3ML,  the  AUC/U  was  generally  over  estimated  for  the  entire  strain 
range  while  for  N3FS,  it  was  under  estimated. 

The  A Vc/V  results  are  controlled  both  by  cv  and  Fb-  By  assuming  a  value  for  Fb 
before  determining  the  cv  that  reproduces  the  F®,  the  procedure  described  in  Sec.  5.1.1 
is  only  capable  of  finding  an  average  debonding  factor.  In  cases  such  as  T3FS  and  T5MS, 
the  assumption  of  a  constant  debonding  factor  appears  to  work  well.  In  other  cases  such  as 
T5FS,  N5FS  or  N5MS,  it  appears  that  the  calculation  of  Fb  needs  to  be  refined  in  order  to 
capture  the  debonding  behavior  of  the  particles.  Unfortunately,  with  only  composite  stress, 
strain  and  dilatation  data  on  hand,  there  is  not  enough  experimental  information  available 


to  resolve  this  issue. 
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FIGURE  10  -  True  stress  behavior  calculations  for  selected  treated  (Tr)  and  un¬ 
treated  (NoTr)  glass  bead/HTPB  composites  tested  at  100  mm/min 


Strain 


FIGURE  11  -  Dilatation  behavior  calculations  for  selected  treated  (Tr)  and  un¬ 
treated  (NoTr)  glass  bead/HTPB  composites  tested  at  100  mm/min 
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Strain 


FIGURE  12  -  True  stress  behavior  calculations  for  selected  treated  (Tr)  and  un¬ 
treated  (NoTr)  glass  bead/HTPB  composites  tested  at  10  mm/min 


Strain 


FIGURE  13  -  Dilatation  behavior  calculations  for  selected  treated  (Tr)  and  un¬ 
treated  (NoTr)  glass  bead/HTPB  composites  tested  at  10  mm/min 
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FIGURE  14  -  True  stress  and  vacuole  concentration  calculations  for  composite  N5MS 

From  Tables  II  and  III,  the  result  Ym  ^  1  for  all  composites  tested  indicates  that 
the  composite  modulus  in  eq.  8  requires  some  adjustment  to  reproduce  the  actual  initial 
modulus.  While  it  would  be  tempting  to  say  that  the  Ym  values  are  purely  attributable  to 
physical  particle  interaction  (Ref.  67),  the  fact  that  the  Ym  for  composites  containing  c*  = 
0.5  is  lower  than  the  Ym  for  composites  containing  c*  =  0.3,  except  in  the  case  of  N3ML  and 
N5ML,  discounts  this  interpretation.  From  these  results,  Ym  can  be  considered  a  parameter 
that  groups  together  factors  such  as  particle  interaction,  size  and  surface  treatment  that 
have  a  subtle  influence  on  composite  modulus. 

Again  from  the  Tables,  it  can  be  seen  that  the  values  of  Ft,  0.  This  implies  that 
the  beads  do  not  fully  debond  but  that  there  is  a  residual  bond  that  remains  between  bead 
and  matrix.  Physically,  this  would  imply  that  0^0°  (eq.  6)  as  assumed  by  others  (Refs.  3, 
40,  68,  69)  but  it  would  take  on  some  value  0  >  0°.  This  bond  is  significant  since  it  varies 
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between  1  to  12  times  the  stiffness  of  the  matrix.  The  higher  Fb  for  composites  containing 
31  nm  beads  suggests  smaller  beads  debond  to  a  lesser  extent  than  larger  beads. 

One  of  the  major  assumptions  made  in  the  micromechanical  model  dealt  with  how 
particles  debond  as  the  composite  is  loaded.  Based  on  the  information  found  in  the  literature 
(Refs.  5  -  8),  it  is  generally  accepted  that  large  particles  debond  before  smaller  ones.  This 
model  takes  that  fact  one  step  further  by  assuming  that  the  particles  in  the  composite 
debond  in  a  progressive  manner  starting  with  the  largest  particles  and  ending  with  the 
smallest  ones.  The  possibility  that  some  large  particles  and  some  small  particles  debond 
at  the  same  time  is  not  considered.  The  experimental  data  and  calculated  results  for  rate 
of  particle  debonding  (denoted  Ac^)  versus  the  cumulative  cv  for  T5MS  (Fig.  15,  p.  41) 
and  N5MS  (Fig.  16),  show  that  the  assumption  was  a  reasonable  one.  This  assumption 
worked  well  for  14  out  of  the  16  composites  tested.  In  the  cases  of  T5FL  and  T5ML, 
large  differences  were  observed  between  the  deduced  Ac*  and  the  calculated  Ac*  (see  Fig. 
17  for  T5ML  results).  This  explained  why  there  was  poor  correspondence  between  the 
experimental  and  calculated  ac  —  ec  results  (Fig.  18).  Without  other  information,  it  is  not 
possible  to  determine  why  the  beads  in  these  composites  tended  to  debond  at  a  slower  rate 
than  expected. 

The  apparent  adhesion  energies  listed  in  Tables  II  and  III  indicate  that  the  energy 
required  to  debond  a  particle  is  rate  sensitive  and  must  be  taken  into  account.  These 
values  were  calculated  assuming  the  debonding  angle  0  —  0°.  On  average,  when  equivalent 
composites  are  compared,  the  G“pp  at  100  mm/min  was  about  1.7  times  the  (7“pp  at  10 
mm/min. 

The  results  from  the  adhesion  tests  (Sec.  4.3)  shown  in  Table  IV  (p.  43)  also  support 
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FIGURE  15  -  Calculated  incremental  vacuole  concentration  behavior  for  composite 
T5MS 


FIGURE  16  -  Calculated  incremental  vacuole  fraction  behavior  for  composite  N5MS 
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FIGURE  17  -  Calculated  incremental  vacuole  concentration  behavior  for  composite 
T5ML 
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FIGURE  18  -  True  stress  and  dilatation  behavior  calculations  for  composite  T5ML 
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TABLE  IV 


Single  bead  debond  results 


Specimen 

Rate 

(mm/min) 

Eup 

(MPa) 

^cr 

/7<jpp 

(J/m2) 

1 

1.47 

0.328 

426 

2 

Wmm. 

1.68 

0.256 

323 

3 

10 

1.71 

1.51 

0.296 

369 

4 

100 

2.08 

1.66 

0.277 

680 

5 

100 

N/A 

N/A 

N/A 

N/A 

6 

100 

1.85 

1.52 

0.350 

835 

Notes:  E^p  is  the  average  composite  modulus  when  loading  and  E*”  is  the  average  modulus  when  unloading. 
Results  for  Specimen  5  are  not  available  because  it  failed  prematurely. 


this  observation.  The  average  measured  adhesion  energy  G%  at  10  mm/min  was  374  J/m2. 
At  100  mm/min,  the  average  G®  was  758  J/m2.  Thus,  the  relative  G®  magnitude  based  on 
the  10  mm/min  result  was  2.03.  Figure  19  (p.  44)  compares  the  stress-strain  data  measured 
for  Specimens  3  (10  mm/min)  and  6  (100  mm/min).  It  was  interesting  to  note  that  the 
polymer  failed  around  the  bead  at  9  ps  30°.  This  was  predicted  by  the  finite  element  results 
and  has  been  predicted  by  others  (Refs.  9,  70).  If  the  particles  in  the  model  composites 
debonded  in  a  similar  manner  then  this  would  mean  the  results  in  Tables  II  and  III  are 
under  estimated  by  a  factor  of  2. 


It  is  difficult  to  pin-point  the  actual  Gc  for  the  different  beads  used.  In  general, 
the  treated  beads  had  larger  G“pp  than  the  untreated  ones.  Exceptions  to  this  were  the 
composites  containing  c*  =  0.3  of  the  31  fim  beads.  Comparisons  of  c®  versus  «®  show 
that  the  as-received  beads  debonded  earlier  than  the  treated  beads  in  all  cases  (Fig.  20, 
p.  45  and  Fig.  21).  This  result  demonstrates  clearly  that  the  bonding  for  treated  beads 
was  better  because  more  strain  energy  was  required  in  the  composite  to  induce  debonding. 
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FIGURE  19  -  Adhesive  energy  dissipation  for  debond  specimens  tested  at  10 
mm/min  and  100  mm/min 

The  Tables,  however,  also  suggest  that  the  130  fim  beads  have  a  larger  Gc  than  the  31  fim 
beads  and  that  Gc  increases  with  increases  in  c'0.  There  are  no  obvious  reasons  why  this 
should  be  so.  The  fact  that  the  model  can  reproduce  the  <x®  —  e®  and  AVe/V  —  e®  behavior 
using  Gapp  suggests  there  was  validity  in  assuming  equal  amounts  of  surface  area  have 
debonded  in  the  actual  and  model  particle  distributions.  At  this  point,  the  values  for  Gc 
can  only  be  called  “apparent”  because  the  factors  which  influence  this  parameter  have  yet 
to  be  precisely  determined.  This  remains  a  problematic  area  for  this  model.  Quantification 
of  energy  dissipation  by  mechanisms  other  than  surface  creation  in  composites  has  been 
studied  in  (Refs.  71  -  73)  though  and  may  lead  the  way  for  further  work. 

A  check  was  made  on  the  viscoelastic  nature  of  the  HTPB  used  in  this  study  to 
see  whether  it  could  affect  the  analysis  results.  A  stress  relaxation  test  was  carried  out 
on  a  stick  of  pure  HTPB  polymer  according  to  accepted  procedures  (Refs.  74,  75).  The 


Vacuole  Fraction  (cv) 


FIGURE  20  -  Evolution  of  vacuole  concentration  with  composite  strain  for  compos¬ 
ites  tested  at  100  mm/min 


FIGURE  21  -  Evolution  of  vacuole  concentration  with  composite  strain  for  compos¬ 


ites  tested  at  10  mm/min 
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FIGURE  22  -  Stress  relaxation  behavior  of  HTPB  assuming  modified  power  law  re¬ 
sponse 

specimen  was  strained  to  5%  at  50  mm/min  and  then  allowed  to  relax  for  1000  s.  Figure 
22  shows  the  reduced  data  assuming  relaxation  follows  the  modified  power  law  (Ref.  76) 

E(t)  =  Er0  t~m  [21] 

ET0  is  the  modulus  at  t  —  1  and  m  is  the  slope  of  the  data  in  the  log-log  plane.  The  values 
for  Eg  and  m  were  determined  to  be  1.387  MPa  and  0.0194,  respectively.  Considering  that 
the  duration  of  a  tensile  test  at  100  mm/min  was  on  the  order  of  0.5  min.  and  a  test  at 
10  mm/min  was  5  min.,  the  drop  in  matrix  modulus  due  to  time  effects  is  approximately 
5%.  This  is  not  a  significant  reduction  so  the  assumption  of  nonlinear  elasticity  can  be 
considered  justifiable. 
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5.2  Sensitivity  and  Predictive  Capability  of  Micro-Mechanical  Model 


The  back-calculated  parameters  found  in  the  previous  section  reduced  the  error  in 
modulus  and  dilatation  to  a  minimum.  The  sensitivity  of  the  micromechanical  model  to 
changes  in  the  adjustable  parameters  will  be  examined  from  two  perspectives.  The  first  is 
to  examine  the  tendencies  the  model  exhibits  with  changes  in  the  parameters.  This  will 
identify  the  dominant  parameter.  The  second  is  to  use  the  model  like  a  user  would  to 
predict  the  mechanical  behavior  of  a  composite  under  development.  This  will  demonstrate 
the  predictive  capability  of  the  model  given  the  presence  of  the  adjustable  parameters. 

Four  parameters,  namely  (7^,  Ym,  Fb  and  Gc,  were  needed  in  the  model.  Out  of  these 
four,  only  Ym  and  Fb  can  be  considered  truly  adjustable.  <rcr  was  specified  by  examining 
the  measured  stress-strain  and  dilatation-strain  results  (Sec.  5.1.1).  Gc  is  a  measurable 
quantity  too,  although  it  is  not  clear  how  it  should  be  measured.  As  a  consequence,  the 
sensitivity  analyses  presented  in  the  following  sections  will  use  acr  and  G“pp  as  shown  in 
Tables  II  and  III,  p.  31.  Ym  and  Fb  will  be  varied.  Analyses  are  limited  to  the  10  mm/min 
parameters  because  the  100  mm/min  parameters  have  the  same  trends  based  on  composite 
type. 


5.2.1  Trends  with  Ym  and  Fb 

To  make  the  analysis  manageable,  the  sensitivity  of  a  single  point  on  the  <r|  — 
and  AVe/F  —  c®  curves  were  selected  for  comparison  with  the  calculated  values.  These 
points  were  called  target  values  and  were  generally  chosen  at  the  mid-way  point  in  the 
phase  where  particles  were  debonding  because  they  would  measure  the  average  change  in 
behavior.  Table  V  lists  this  information  along  with  the  corresponding  target  Ym  and  Fb 
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TABLE  V 


Target  values  for  sensitivity  analyses 


Composite 

'I 

<?c 

(MPa) 

AVe/V 

Fb 

xlO-4 

T3ML 

0.400 

1.19 

■ 

1.26 

1.8 

N3ML 

0.301 

0.626 

0.92 

0.24 

T5MS 

0.249 

1.46 

0.042 

0.83 

1.0 

N5MS 

0.150 

0.933 

0.028 

1.06 

1.0 

(see  also  Figs.  10  and  11,  p.  37).  The  term  “fractional  value”  will  be  used  often.  This  is 
defined  by 


.  .  actual 

fraction  = - 1 

target 


[22] 


The  fractional  stress  and  dilatation  values  were  calculated  over  a  fractional  Ym  and 
Fb  of  ±0.25  in  steps  of  0.05.  This  produced  100  different  combinations  to  examine  for  each 
composite.  For  the  sake  of  brevity,  only  the  graphical  results  of  T5MS  and  N5MS  will 
be  shown.  The  composites  T3ML  and  N3ML  exhibited  similar  behavior.  The  FORTRAN 
listing  used  for  the  sensitivity  analysis  may  be  found  in  Appendix  D. 

A  comparison  of  the  fractional  stress  contours  for  T5MS  (Fig.  23,  p.  50)  and  N5MS 
(Fig.  25,  p.  51)  shows  that  the  stress  sensitivities  are  quite  different.  In  T5MS,  there 
are  high  rates  of  change  centered  at  fractional  Ym  =  —0.20  and  Fb  =  0.15.  In  N5MS,  the 
gradient  is  more  uniform.  A  similar  pattern  is  observed  in  the  dilatational  sensitivities  (Figs. 
24  and  26).  In  all  the  Figures,  high  fractional  stresses  or  low  fractional  dilatations  are  seen 
when  fractional  Fb  is  high  and  Ym  is  low.  Since  a  high  fractional  Fb  increases  stiffness,  one 
would  expect  high  stresses  there.  However,  a  high  fractional  Ym,  also  increases  stiffness  but 
low  stresses  tend  to  occur  in  those  locations.  This  shows  that  the  model  is  influenced  more 
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TABLE  VI 


Minimum  and  maximum  fractional  crc  and  AV/V 


Composite 

Fractional 

<yc 

Fb 

V 

x  m 

AV/V 

Fb 

Fm 

T3ML 

max 

■pEpI 

0.25 

-0.25 

mm 

0.20 

min 

-0.25 

0.25 

mm 

-0.25 

N3ML 

max 

jMjXjTJ 

0.25 

-0.25 

mm 

HSS3 

0.20 

min 

ffnffil 

-0.25 

0.25 

m 

MM 

-0.25 

T5MS 

max 

0.15 

-0.20 

mm 

0.25 

min 

-0.25 

0.25 

EMI 

-0.20 

N5MS 

max 

0.08 

0.25 

-0.25 

-0.25 

0.25 

min 

-0.08 

-0.25 

0.25 

0.25 

-0.25 

by  the  value  of  F&  than  Ym.  The  Figures  reveal  that  it  is  better  to  under  estimate  Ft  and 
over  estimate  Ym  if  reasonably  accurate  values  of  stress  (fractional  ac  <  10%)  are  desired. 
This  would  be  to  the  detriment  of  the  dilatation  results  though.  Table  VI  summarizes  the 
locations  of  the  minimum  and  maximum  fractional  stresses  and  dilatations  for  all  composites 


examined  in  this  section. 
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Fractional  Change  in  Back-Calculated  Ym 

FIGURE  23  -  Fractional  stress  contours  for  composite  T5MS  based  on  variation  of 
interaction  factor,  Ym  and  debonding  factor,  jF& 


Fractional  Change  In  Back-Calculated  Ym 

FIGURE  24  -  Fractional  dilatation  contours  for  composite  T5MS  based  on  variation 
of  interaction  factor,  Ym  and  debonding  factor,  F& 
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FIGURE  25  -  Fractional  stress  contours  for  composite  N5MS  based  on  variation  of 
interaction  factor,  Ym  and  debonding  factor,  Ff, 


FIGURE  26  -  Fractional  dilatation  contours  for  composite  N5MS  based  on  variation 
of  interaction  factor,  Ym  and  debonding  factor  Fj, 
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For  interest,  a  similar  analysis  was  carried  out  for  fractional  values  of  and 
G'“pp  while  Ym  and  F&  were  fixed  according  to  Tables  II  and  III.  Figures  27  and  28 
shows  that  stress  and  dilatation  are  totally  dominated  by  G“pp.  For  the  range  studied 
(—0.15  <  frac.  G'“pp  <  +0.15),  the  stresses  are  within  10%  of  the  target  values.  Dilatation 
is  only  slightly  affected  by  changes  in  G“pp  in  comparison  to  the  effects  of  Fj,.  The  analy¬ 
sis  was  limited  to  ±0.15  because  greater  values  caused  large  increases  in  fractional  stress. 
The  results’  insensitivity  to  variations  in  crcr  highlight  again  the  importance  of  having  a 
representative  value  for  Gc. 

5.2.2  Predictive  Capability  of  Model 

To  use  the  micromechanical  model  for  predicting  mechanical  behavior  of  an  un¬ 
known  composite,  a  set  of  “best  guess”  Ym  and  F&  values  are  required.  It  is  evident  from 
Table  III  that  the  F&  for  treated  particles  is  not  in  the  same  range  as  the  F&  for  as-received 
particles.  Since  it  was  determined  in  the  previous  section  that  it  was  better  to  under  es¬ 
timate  Fj,,  a  “best  guess”  value  of  F\,  =  1.0  X  10~4  was  selected  for  the  treated  particles 
and  a  value  of  0.25  X  10~4  was  selected  for  the  as-received  ones.  A  reasonable  “best  guess” 
value  of  Ym  =  1.0  was  selected  because  the  model  is  less  sensitive  to  variations  in  Ym  and  it 
was  a  nice  round  number.  The  FORTRAN  listing  for  the  micromechanical  model  is  given 
in  Appendix  E. 

The  results  of  using  these  “best  guess”  values  are  shown  in  Table  VII.  For  T3ML, 
N3ML  and  T5MS,  the  fractional  stresses  are  less  than  0.1  as  expected.  Composite  N5MS 
fell  outside  this  range  because  unlike  the  other  untreated  composites,  its  back-calculated  Ff, 
was  closer  to  1.0  x  10-4.  The  N5MS  values  were  calculated  by  hand  because  they  were  well 
beyond  the  limits  of  Figs.  25  and  26.  The  fractional  dilatations  were  high  as  expected. 
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TABLE  VII 


Fractional  tre  and  AV/V  for  best  guess  Ym  and  Fb 


Composite 

Best  Guess 

Fractional 

wm 

Fb 

«» 

Fb 

<*c 

AV/V 

T3ML 

■VTj 

ipp||j  H 

-0.21 

-0.44 

N3ML 

Bp 

+0.09 

+0.04 

T5MS 

Bra 

+0.20 

+0.00 

fa  +0.10 

N5MS 

EES 

-0.06 

-3.00 

+0.74 

As  a  final  evaluation  of  these  “best  guess”  values,  they  were  used  to  predict  the 
behavior  of  composites  T3FS  and  N3FS.  From  Fig.  29,  p.  55,  it  can  be  seen  that  for 
T3FS  compares  well  with  aec.  It  is  slightly  lower  than  the  acc  calculated  with  back-calculated 
values  (Fig.  10,  p.  37).  The  AVC  /V  is  over  estimated  in  relation  to  A Ve  fV  and  the  AVC/V 
calculated  with  back-calculated  values  (Fig.  11).  For  N3FS,  the  trends  are  similar  except 
the  difference  between  acc  and  <r®  is  more  noticeable  (Figs.  30  and  10).  This  shows  that  it 
is  possible  to  predict  the  mechanical  behavior  of  particulate  composites  if  suitable  values 
for  acr  and  G“pp  are  available. 


Fractional  Change  In  Back-Calculated  Gc 
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Fractional  Change  in  Back-Calculated  a  or 

FIGURE  27  -  Fractional  stress  contours  for  composite  T5MS  based  on  variation  of 
critical  stress,  and  apparent  adhesion  energy,  G'“pp 


Fractional  Change  In  Back-Calculated  cror 

FIGURE  28  -  Fractional  dilatation  contours  for  composite  T5MS  based  on  variation 
of  critical  stress,  acr  and  apparent  adhesion  energy,  G“pp 


True  Stress  (MPa)  W  True  Stress  (MPa) 
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29  -  Predicted  mechanical  behavior  of  composite  T3FS  based  on  best-gu< 
parameters  derived  from  10  mm/min  results 


FIGURE  30  -  Predicted  mechanical  behavior  for  composite  N3FS  based  on  best- 
guess  parameters  derived  from  10  mm/min  results 


Volume  Chengs  (A V/V)  jg  Volume  Change  (A  V/V) 
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5.2.3  Prediction  of  Literature  Experimental  Data 

In  Ref.  25,  the  stress-strain  behavior  of  a  composite  composed  of  glass  bead/HDPE 
was  used  to  evaluate  the  Anderson-Farris  model.  One  of  the  shortcomings  of  the  model  was 
its  inability  to  reproduce  the  nonlinear  behavior  at  the  beginning  of  the  stress-strain  curve. 
To  demonstrate  the  predictive  capability  of  the  micromechanical  model  developed  here, 
predictions  for  the  T25-20  and  T100-20  composites  were  made  using  the  “best  guess”  Fb 
and  Ym  parameters  from  the  previous  section.  Critical  stress  values  were  set  at  25  MPa 
based  upon  examination  of  stress-strain  curves.  The  experimental  data  did  not  have  volume 
change  measurements  because  the  dilatometer  load  cell  was  not  capable  of  withstanding 
more  than  a  force  of  200  lbs.  Gacpr>  for  each  composite  had  to  be  found  by  trial  and  error. 
The  nonlinear  HDPE  modulus  was  characterized  using  experimental  data  for  pure  HDPE  up 
to  the  measured  maximum  stress  point  (~  O.lOe).  Input  parameters  used  for  the  predictions 
may  be  found  in  Table  VIII. 

Figures  31  and  32  show  that  the  predicted  stress-strain  results  for  T25-20  and  T100- 
20  captured  the  nonlinear  character  of  the  composites  before  and  after  the  critical  stress 
point.  With  the  G“pp’s  selected  and  the  assumption  there  was  no  significant  reduction 
in  cross-sectional  area,  the  predicted  stress  at  e  =  0.04  under  estimated  the  experimental 
stress  by  about  15%.  This  difference  could  not  be  reduced  through  the  use  of  higher  G“pp,s 
because  numerical  instabilities  would  appear  in  the  solutions. 

In  Ref.  57,  the  behavior  of  a  glass  bead/poly  urethane  composite  was  studied. 
Since  volume  change  data  was  available  from  Ref.  57,  the  reduction  techniques  in  Sec. 
5.1.1  could  be  used.  The  back-calculated  Ym,  Fb  and  G“pp  values  for  the  untreated  c’  = 
0.3  composite  and  the  treated  c'0  =  0.3  and  c*  =  0.4  composites  are  shown  in  Table  IX. 
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TABLE  VIII 


Model  parameters  for  glass  bead/HDPE  tested  at  10  mm/min 


Composite 

T100-20 

T25-20 

r  {fim) 

65 

15.5 

n 

0.0374 

0.167 

4 

0.19 

0.22 

CVo 

0.0 

0.0 

Vi 

0.16 

0.16 

Vo 

0.34 

0.34 

Gi  (GPa) 

30 

30 

E0  (MPa) 

see  a 

see  a 

C Ter  (MPa) 

25 

25 

m 

1.0 

1.0 

F*9  X  10-4 

1.0 

1.0 

Ga™  (J/m2) 

21 

17 

a  Eo  =  965 . 13  -  1 1696 . 5e  +  49450 . 5e2  (MPa) 

r,  average  particle  radius,  n  log  standard  deviation  in  radius,  c'0,  initial  inclusion  volume  fraction,  cva,  initial 
vacuole  volume  fraction,  z/;,  inclusion  Poisson  ratio,  u0,  matrix  Poisson  ratio,  G<,  inclusion  shear  modulus,  E0 
matrix  tensile  modulus,  <xcr,  critical  stress,  ,  “best-guess”  interaction  factor  multiplier,  F^3,  “best-guess” 
partial  debonding  factor,  G%pp ,  apparent  adhesion  energy. 
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0.00  0.01  0.02  0.03  0.04  0.05  0.06 

Strain 

FIGURE  31  -  Predicted  mechanical  behavior  for  treated  glass  bead/HDPE  compos 
ite  T25-20  based  on  best-guess  parameters 


0.00  0.01  0.02  0.03  0.04  0.05 

Strain 

FIGURE  32  -  Predicted  mechanical  behavior  for  treated  glass  bead/HDPE  compos 
ite  T 100-20  based  on  best-guess  parameters 
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TABLE  IX 


Model  parameters  for  glass  bead/polyurethane  tested  at  10  mm/min 


Surface  Treatment 

Untreated 

Treated 

Treated 

Volume  Fraction 

0.3 

0.3 

0.4 

r  (n m) 

12.5 

12.5 

12.5 

n 

0.228 

0.228 

0.228 

c* 

0.3 

0.3 

0.4 

CV 

'-o 

0.0 

0.0 

0.0 

0.16 

0.16 

0.16 

V0 

0.499 

0.499 

0.499 

Gi  (GPa) 

30 

30 

30 

E0  (MPa) 

see  a 

see  a 

see  a 

O’er  (MPa) 

1.5 

2.0 

1.75 

Ym 

2.1 

1.81 

1.58 

Fb  x  10-4 

1.4 

2.7 

3.0 

G“pp  (J/m2) 

9.34 

15.0 

6.56 

a  E0  =  4.30579  -  0.533303e  +  0.227341e2  (MPa) 

r,  average  particle  radius,  n  log  standard  deviation  in  radius,  c'0,  initial  inclusion  volume  fraction,  c%,  initial 
vacuole  volume  fraction,  ut,  inclusion  Poisson  ratio,  u0,  matrix  Poisson  ratio,  Gi,  inclusion  shear  modulus, 
E0  matrix  tensile  modulus,  <rcr,  critical  stress,  Ym,  interaction  factor  multiplier,  Fb,  partial  debonding  factor, 
G“pp,  apparent  adhesion  energy. 


In  terms  of  the  adhesive  characteristics  Fb  and  G“pp,  a  comparison  between  the  treated 
and  untreated  composite  parameters  show  that  they  are  similar  to  the  trends  seen  for  the 
glass  bead/HTPB  composites  (Tables  II  and  III).  When  comparing  Fb  and  G“pp  for  the 
treated  glass  bead/polyurethane  composites,  the  cl0  =  0.3  composite  has  a  smaller  Fb  and 
a  larger  G“pp  than  the  cl0  —  0.4  composite.  This  is  opposite  to  the  trends  seen  for  the  glass 
bead/HTPB  composites. 


Again,  “best  guess”  values  for  Ym  and  Fb  were  used  to  predict  the  mechanical 
behavior  for  the  selected  glass  bead/polyurethane  materials.  For  the  treated  composites, 
the  experimental  stress  at  e  =  0.3  was  underestimated  by  approximately  14%  (Figs.  33 
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FIGURE  33  -  Predicted  mechanical  behavior  for  treated  glass  bead/polyurethane 
composite  based  on  best-guess  parameters,  c'a  =  0.3 


and  34).  For  the  untreated  composite,  the  stress  was  underestimated  by  24%  at  €  =  0.5 
(Fig.  35).  Dilatation  was  overestimated  for  the  untreated  cl0  —  0.3  and  treated  c*  =  0.4 
composites  and  underestimated  for  the  treated  c'0  =  0.3  composite.  Given  the  approximate 
nature  of  the  F&’s  and  Ym’> s  employed  in  this  section,  the  micromechanical  model  gave 
reasonable  predictions  for  the  glass  bead/HDPE  and  glass  bead /polyurethane  composites. 


Trot  Stress  (MPa)  H  True  Stress  (MPa) 
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34  -  Predicted  mechanical  behavior  for  treated  glass  bead/polyureth 
composite  based  on  best-guess  parameters,  c*  =  0.4 


FIGURE  35  -  Predicted  mechanical  behavior  for  untreated  glass  bead/polyurethane 
composite  based  on  best-guess  parameters,  c'a  —  0.3 


Volume  Change  (AV/V)  g  Volume  Change  (AV/V) 
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6.0  CONCLUSIONS 

A  micromechanical  model  for  analysis  of  particulate  mechanical  behavior  has  been 
presented.  The  assumptions  used  during  the  model  development  were: 

1.  Nonlinear  effects  are  partly  due  to  matrix  and  particle  debonding. 

2.  Only  well-bonded  particles,  debonded  particles  and  matrix  are  present  in  the  compos¬ 
ite. 

3.  Well-bonded  particles  are  characterized  by  isotropic  properties  while  debonded  parti¬ 
cles  are  approximated  with  orthotropic  properties. 

4.  Matrix  is  nonlinear  elastic. 

5.  The  representative  volume  element  is  much  larger  than  the  largest  particle. 

6.  The  interaction  multiplier  and  debonding  factor  are  constant  throughout  the  loading 
history. 

7.  Particles  debond  progressively  from  largest  sizes  to  smallest  sizes  throughout  the  strain 
history. 

The  study  was  broken  into  two  sections.  The  first  section  used  the  experimental 
data  from  a  range  of  glass  bead/HTPB  composites  to  back  calculate  model  parameters.  Rea¬ 
sonable  values  for  the  parameters  were  found.  This  showed  that  the  micromechanical  model 
gave  a  good  representation  of  the  processes  believed  to  control  mechanical  behavior.  The 
deviations  between  calculated  and  experimental  stress  were  small  when  the  back-calculated 
parameters  were  used.  Larger  deviations  for  dilatation  existed.  These  deviations  were 
traced  back  to  differences  between  the  calculated  and  deduced  vacuole  volume  fractions. 

A  comparison  between  the  back-calculated  interaction  multipliers  for  the  different 
composites  suggested  that  composite  modulus  is  not  only  a  function  of  volume  fraction 
and  particle  interaction  but  it  may  be  influenced  by  particle  size  and  surface  treatment  as 
well.  The  non-zero  debonding  factors  found  in  this  study  suggested  that  particles  cannot  be 
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assumed  to  fully  debond.  Assumption  7.  was  confirmed  indirectly  by  using  the  incremental 
vacuole  fraction  as  an  indicator  of  the  particle  sizes  debonded  at  any  given  moment. 

The  second  section  examined  the  sensitivity  of  the  model  results  to  small  changes  in 
the  interaction  multiplier  and  debonding  factor.  The  debonding  factor  was  found  to  have  a 
dominating  effect  on  the  calculated  results.  Changes  in  composite  stress  were  less  sensitive 
to  changes  in  this  factor  than  composite  dilatation.  The  results  showed  it  was  better  to 
under  estimate  the  debonding  factor  and  to  over  estimate  the  interaction  multiplier  when 
modeling  an  unknown  composite.  An  additional  analysis  showed  the  apparent  adhesion  en¬ 
ergy  also  dominated  the  model  results.  The  model’s  dependency  on  representative  adhesion 
characteristics  remains  a  problematic  area  due  to  the  difficulty  in  measuring  such  values. 

Based  on  the  sensitivity  results,  “best  guess”  interaction  and  debonding  parameters 
were  selected  to  examine  the  predictive  capability  of  the  model.  The  critical  stress  and 
adhesion  energy  were  assumed  known.  In  most  cases,  the  predicted  composite  stresses 
were  within  10%  of  the  experimental  glass  bead/HTPB  data.  Dilatation  was  usually  over- 
predicted.  As  additional  tests,  the  behavior  of  glass  bead/HTPB  composites  tested  at  100 
mm/min  and  the  behavior  of  glass  bead/HDPE  and  glass  bead/polyurethane  composites 
were  predicted  using  “best  guess”  interaction  multiplier  and  debonding  factors.  The  results 
showed  that  the  model  was  capable  of  predicting  the  mechanical  behavior  as  long  as  suitable 
values  for  critical  stress  and  adhesion  energy  were  available. 
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APPENDIX  A 

ANSYS  INPUT  FILE  FOR.  DEBQND  SPECIMEN  ANALYSIS 


/COM,  ANSYS  REVISION  5.0A 

/COM,  REVISED  INCLUSION  INTERPHASE  MODEL  EXPTL  SET-UP 
!  MODEL  GEOMETRY  PARAMETERS 


HHGT  =1.25 
PRAD  =  0.486 
CRAD  =  1.025 
CHGT  =1.5 
CHGT  =  0.5+CHGT 
ITHK  =  0.025 
RSRG  =  0.250 
SHGT  =  0.050 
GHGT  =  RSRG+SHGT 
EPROP  =  15 
TOL  =  0.0001 
TTOL  =  1 


!  HOLDER  HEIGHT  (IN) 

!  PARTICLE  RADIUS  (IN) 

!  CYLINDER  RADIUS  (IN) 

!  CYLINDER  HEIGHT  (IN) 

!  REDUCE  TO  1/2  HEIGHT  FOR  SYMMETRY 
!  INTERPHASE  THICKNESS  (IN) 

!  SHOULDER  RADIUS  (IN) 

!  SHOULDER  HEIGHT  (IN) 

!  GROOVE  HEIGHT  (IN) 

!  MATRIX  MODULUS  (PSI) 

!  DIMENSIONAL  TOLERANCE  (IN) 

!  ANGULAR  TOLERANCE  (DEGREES) 


!  LOADING  PARAMETERS 


STRN  =  0.2 
EFAC  =  1.000 
BSTP  =  4 
LSTP  =  4 

DISP  =  -STRN*CHGT 

!  SET  UP  DATABASE 

/FILNAM , SYM-2VFB 

!  LINE  DIVISIONS 

NANG  «  5 

NSHT  -  28 

NLNG  =  18 

NBED  =  10 

NRSH  =  10 

NRLG  =  10 

NHSH  =  8 

NHLG  =  15 

NINT  =  2 


!  APPROXIMATE  APPLIED  STRAIN 
!  1=PERFECT  BOND,  0.0001=N0  BOND 
!  BEGINNING  LOAD  STEP 
«  LAST  LOAD  STEP  TO  CALCULATE  MAX=4 
!  APPLIED  DISPLACEMENT  (IN) 


!  ANGULAR  DEG,  PARTICLE/ INTERPHASE/GLUE 
!  LINEAR  DIV,  CYLINDER  HEIGHT  SHORT  SIDE 
!  LINEAR  DIV,  CYLINDER  HEIGHT  LONG  SIDE 
!  LINEAR  DIV,  BEAD  RADIUS 
!  LINEAR  DIV,  SHORT  SIDE  CYL  RADIUS 
•  LINEAR  DIV,  CYLINDER  RADIUS 
!  LINEAR  DIV,  SHORT  SIDE  HOLDER  HEIGHT 
!  LINEAR  DIV,  HOLDER  HEIGHT 
!  LINEAR  DIV,  INTERPHASE 
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NSHL  =  4  ! 

NANS  =  10  ! 

!  MATERIAL  PROPERTIES 
EMAT  =  EPROP  ! 

VMAT  =  0.49  ! 

AMAT  =  10E-5  ! 

EINT  =  EMAT*EFAC  ! 

VINT  =0.49 
AINT  =  10E-5 
EGLU  =  0.3E6  ! 

VGLU  =0.35 
AGLU  =  4.5E-5 

EHLD  =  10.6E6  ! 

VHLD  =0.33 
AHLD  =  12.9E-6 

EBED  =  11E6  ! 

VBED  =0.23 
ABED  =  5.1E-6 
/TITLE,  SINGLE  SPHERE 
/PREP7 

/COM,  8-NQDED  QUAD,  AXISYMMETRIC 
ET , 1 , 82 , , ,  1 

/COM,  MATERIAL  PROPERTIES 
MP ,EX, 1 ,EMAT 
MP , NUXY , 1 , VMAT 
MP , ALPX , 1 , AMAT 
MP, EX, 2, EINT 
MP, NUXY, 2, VINT 
MP, ALPX, 2, AINT 
MP, EX, 3, EGLU 
MP, NUXY, 3, VGLU 
MP,  ALPX, 3, AGLU 
MP, EX, 4, EHLD 
MP, NUXY, 4, VHLD 
MP,  ALPX, 4, AHLD 
MP, EX, 5, EBED 
MP, NUXY, 5, VBED 


LINEAR  DIV,  SHOULDER 
ANGULAR  DEG,  SHOULDER  RADIUS 

MATRIX  MODULUS  (PSI) 

MATRIX  POISSON  RATIO 
MATRIX  THERMAL  CO-EFF  C/F) 
INTERPHASE 


GLUE 


HOLDER 


BEAD 


EMBEDDED  IN  MATRIX  W/ INTERPHASE,  SYMMETRIC 
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MP , ALPX , 5 , ABED 
/COM,  KEYPOINT  ID 
K, 1,0,0 
K,2,PRAD,0 
K , 3 , 0 , PRAD 
K,4,0,CHGT 
K , 5 , CRAD-RSRG , CHGT 
K , 6 , CRAD , 0 
K , 7 , 0 , PRAD+ITHK 
K,8 ,PRAD+ITHK,0 
K, 9,0, -PRAD 
K, 10,0, -(PRAD+ITHK) 
K,11,0,-HHGT 
K , 12 , CRAD , -HHGT 
K, 13,CRAD,SHGT 
K, 14, CRAD-RSRG, GHGT 

K, 15,CRAD,GHGT 
/COM,  LINE  DEFINITION 

L, l,2 
L,l,3 

LARC,2,3,1,PRAD 

L.7,4 

L,4,5  !  L5 

L,14,5 
L  ,6,8 

LARC, 8, 7,1, PRAD+ITHK 
L,2,8 

L,3,7  !  L10 

L,l,9 

LARC, 9, 2,1, PRAD 
LARC, 10, 8,1, PRAD+ITHK 
L ,9, 10 

L,10, 11  !  L15 

L.11,12 

L,12,6 

L,6, 13 

LARC ,13,14,15, RSRG 
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/COM,  AREA  GENERATION 
A, 8, 6, 13, 14,5,4,7 
A, 3, 2, 8, 7 
A, 9, 10,8,2 
A, 1,2,3 
A, 1,9,2 

AL, 13, IB, 16, 17, 7 
/COM,  LINE  SEGMENTATION 
LESIZE, 1, , , NBED.0.5 
LESIZE.2, , ,NBED,0.5 
LESIZE, 3,, NANG 
LESIZE, 4, , ,NSHT,3 
LESIZE, 5,,, NRLG 
LESIZE, 6,,, NLNG 
LESIZE, 7, , ,NRSH,-3 
LESIZE, 8,, NANG 
LESIZE, 9,,, NINT 
LESIZE, 10,,, NINT 
LESIZE, 11,,, NBED.0.5 
LESIZE, 12, ,NANG 
LESIZE, 13,, NANG 
LESIZE, 14,,, NINT 
LESIZE, 15,,, NHSH 
LESIZE, 16,,, NRLG 
LESIZE, 17,,, NHLG, 0.5 
LESIZE, 18,,, NSHL 
LESIZE, 19,,, NANS 
/COM,  MESH  GENERATION 
TYPE , 1 
MAT,i 
AMESH.l 
MAT,  2 
AMESH.2 
MAT,  3 
AMESH,3 
MAT,  4 
AMESH.6 
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MAT,  5 
AMESH ,4,6 
FINI 
/SOLU 

DL , 5 , 1 , SYMM 
DL,4,1,SYMM 
DL, 10, 2, SYMM 
DL, 2, 4, SYMM 
DL, 11, 5, SYMM 
DL, 14, 3, SYMM 
DL, 15, 6, SYMM 
/PBC,U, ,1 
TIMINT.OFF 
TIME , 1 

DK,11,UY,0.25*DISP, ,1 

DK,12,UY,0.25*DISP, ,1 

KBC.l 

LSWRITE 

TIME, 2 

DK, 11 ,UY,0.5*DISP, , 1 

DK , 12 ,UY , 0 . 5*DISP , , 1 

KBC.l 

LSWRITE 

TIME, 3 

DK, 11 ,UY,0 .75*DISP , , 1 

DK,12,UY,0.75*DISP,,1 

KBC.l 

LSWRITE 

TIME, 4 

DK,11,UY,1.0*DISP,,1 
DK,12,UY,1.0*DISP, ,1 
KBC.l 
LSWRITE 

LSSOLVE , BSTP , LSTP 

FINI 

SAVE 

/P0ST1 
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SET,  1 

NSEL , S , LOC , Y , -HHGT-TOL , -HHGT+TOL 
FSUM 

ESEL,S,MAT, ,1,2 
NSLE.S 

! /SHOW, SYM-2VF, GRP 
!PLNSOL,S,l 
!PLNSOL,EPEL,Y 
! /SHOW, HALO 
ETABLE, SENE, SENE 
SSUM 
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APPENDIX  B 

FORTRAN  PROGRAMS  FOR.  BACK-CALCULATION  OF  MODEL  PARAMETERS 


Analysis  Procedure 

1.  Set  Fb  =  0,  Ym  =  1,  Gc  =  1-  Set  step  sizes  and  %  err  to  values  shown  in  Sample  Input 
File.  Note  %  err  here  means  fractional  error  and  not  percentage  error. 

2.  Select  from  combined  stress-dilatation-strain  data.  Choose  point  on  true  stress 
curve  where  it  starts  to  separate  from  the  engineering  stress  curve. 

3.  Enter  in  the  rest  of  the  required  parameters  for  the  input  file  and  run  P15.FOR. 

4.  Program  will  find  Ym  that  reduces  error  in  Ec.  It  may  or  may  not  be  able  to  carry 
out  the  Fb  optimization. 

5.  If  P15.FOR  cannot  do  the  Fb  optimization,  set  “Ym  max.  iter.”  to  1  and  increase  Ym 
until  the  program  can  start  iterating  to  find  F&.  To  be  consistent  find  the  lowest  Ym 
that  allows  this  to  happen. 

6.  Allow  program  to  find  optimal  Fb.  If  “frac.  rem.  c°”  falls  below  0.05,  note  Fb  where 
this  takes  place  and  force  program  to  that  Fb  setting  by  using  it  in  the  input  file  and 
setting  Fb  iter,  to  1. 

7.  Check  dV/V  and  a  fit.  Usually  dV/V  fit  is  stiffer  than  the  experimental  results,  a  fit 
is  generally  very  good. 

8.  Look  at  the  and  J2  results  in  the  “r”  file.  If  the  strain  energy  jumps  up  by 
a  large  amount  then  slowly  increases  instead  of  smoothly  increasing,  the  0&.  must  be 
increased.  Sometimes  this  feature  is  not  always  possible  to  get  rid  of.  Try  to  find  a 
< that  will  give  the  smallest  step  in  those  cases.  Once  is  changed  then  steps  3 
to  7  have  to  be  repeated. 

9.  Note  %  err  for  Ym  and  Fb  if  they  are  not  the  default  values. 

10.  Re-run  P15.FOR  then  run  P14-DIST.FOR. 

11.  Select  NTOT  so  that  dC?1  «  dC%xv. 

12.  Note  Glal  and  enter  it  into  the  input  file.  Re-run  P14-DIST.FOR. 
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13.  Gc  in  output  should  be  approx.  1.0.  Note  avg.  Mq  and  its  standard  deviation.  Large 
values  of  Mg  means  fit  is  bad  between  the  assumed  particle  distribution  debonding 
and  the  actual  debonding. 

14.  Note  ISKIP  value  and  debond  angle  used  in  P14-DIST.FOR.  Input  values  into  “-14” 
input  file. 

15.  Run  P14.FOR  to  produce  fitted  stress-dilatation-strain  results. 

16.  Make  changes  to  ISKIP  and  debond  angle  if  necessary.  Ensure  that  the  ISKIP  value 
corresponds  to  the  data  interval  in  the  output  file. 

17.  Re-run  P14.FOR  if  necessary. 


Sample  P15  and  P14-DIST  Input  File 


ct3fl,  part  intact,  vacuole 
220 
1 

65.0 

0.0374 

0.311,0.0 

4609 

2. IE-4, 1.69, 0,1,0 
0 . 4363E6 , 30E9 
0.495,0.16 
30E9.34. 12E9 
5.720,0 
2, IE-3,20 
10,0.5E6,0.0,2 

1 . 522255E6 , -0 . 460286E6 , 0 . 270235E6 

0.1,1,0.008,4 

0.0001,0.005,1 

0.1E-4, 1,0.001 


!  information  header 
!  no.  pts.  in  curve  (NOT  USED) 

!  no.  distributions 
!  avg.  particle  radius  (micron) 

!  log  std.  dev. 

!  inclusion  and  void  fraction 
!  sample  volume  (mm3)  (NOT  USED) 

!  Fb,Ym,w-type,m~type,v-type 
!  matrix  and  inclusion  shear  modulus  (Pa) 

!  matrix  and  inclusion  Poisson  ratio 
!  matrix  and  inclusion  bulk  modulus  (Pa) 

!  Gc,  pressure  (NOT  USED) 

!  a-type,  conv.  tol.,  max.  iterations 
!no. steps  init. ,crit.strs,dbnd  angle, avg. fac. 
!  nonlinear  co-effs  in  Young’s  modulus  (Pa) 
!  Ym  step.Ym  max  iter.Ym  '/, err, start  index 
!  Cv  step,Cv  ’/, err, start  index 
!  Fb  step.Fb  max  iter,Fb  abs.err 
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FORTRAN  Listing  for  P15.FOR 

main  program 
P 15. FOR 

program  uses  experimental  stress-strain  data  to  deduce  optimal 
particle  interaction  Ym  and  debond  fraction  Fb.  The  void  fraction 
is  calculated  on  assumption  that  Ym  and  Fb  are  average  values  for 
entire  range  of  composite  strain,  built  using  subroutines  written 
from  P 14. FOR. 

user  enters  the  following  information: 
number  of  points  (not  used) 
number  of  particle  distributions 
avg  radius  and  std  dev  of  each  distribution 
volume  fraction  of  filler  and  voids  of  each  distribution 
sample  volume  (not  used) 

fraction  debond  (Fb),  YMULT,  w-type,  m-type,  v-type 
matrix  and  filler  shear  modulus  (use  matrix  LE  value) 
matrix  and  filler  poisson  ratio 

void  shear  and  bulk  moduli  (if  both  values  zero  model  as  voids , 
if  non-zero,  use  filler  or  pseudo-filler  values) 
adhesion  energy  and  applied  pressure  (not  used) 
a-type,  matx.conv.tol. (not  used) ,  mat. strn. max. iter. (not  used) 

#  pts  (not  used),  crit. stress,  debond  angle(n/u)  and  iskip(n/u) 
coefficients  kO,  kl,  k2  for  fitted  matrix  Young’s  modulus 
Ym  step,Ym  max  iter,Ym  Xerr, start  index 
Cv  step ,Cv  Xerr, start  index 
Fb  step.Fb  max  iter.Fb  abs.err 

Xerr  really  means  fractional  error  and  not  percentage  error. 

information  may  be  entered  using  keyboard  or  by  input  data  file, 
implementation  of  Hori-Tanaka  solution  extended  for  3-phase  and 
particle  interaction,  constituent  material  properties 
designated  as  follows:  i-inclusion, 2-void  or  vacuole, 3-matrix, 
fraction  debond  (FDBND)  for  orthotropic  properties  in  loading 
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C  direction,  multiplier  for  rad.  diet.  func.  (YMULT) ,  w-type 
C  designates  use  inclusion  or  void  properties  in 

C  calc  of  Wv  matrix  (Osvoid,  lsinclusion) ,  m-type  determines  type  of 
C  particle  interaction  used  (O^none, l=inclusion,  2-inclusion  and 
C  void  or  vacuole) ,  v-type  determines  isotropic  or  orthotropic  matl 
C  (O=orthotropic,lsisotropic) ,  a-type  determines  if  strain 
C  augmentation  is  used  (O=none,  l^yes  in  initial  only,  2=yes  in 
C  initial  and  debond  sections) 

C 

C  to  write  out  intermediate  data  like  modulus  and  Poisson  data,  set 
C  NDIST  =  -NDIST 

C 

C  implementation  of  strain-dependent  matrix  modulus,  added  COMMON 
C  block  /PROPC/,  rearranged  conditional  statement  calling  sbr 

C  CALCIO,  CALCCV  and  CMPRPO.  included  composite  strain  in  the  MTPRP 

C  and  CALCIO  variable  lists,  stored  augmented  strain  in  array  STRNPi 
C  in  /PROPC/ . 

C 

C  take  out  offset  for  ECMPX  calcs  in  SBR  YMFIND  and  CVFIND,  this 
C  causes  modulus  values  to  be  under-estimated  when  first  few  stress 
C  values  are  not  near  zero.  Also  corrected  stress  and  dilatation 
C  calculations  to  use  previous  ECMP  and  POISC  values  for  the  current 
C  strain  level,  this  corresponds  with  what  is  done  in  P14. 

C 

C  to  compile  and  link:  fl  pxx.for  graphics. lib.  the  files 
C  MSGRAPH.FOR  and  GRFDEF.FOR  should  be  in  the  same  directory  unless 

C  a  temporary  variable  has  been  set  up  to  point  to  the  location  of 

C  include  files,  these  files  contain  graphics  routines  necessary  to 
C  plot  stress-strain  curve  on  screen. 

C 

C  added  statement  to  read  in  debond  angle  from  input  file. 

C 

C  last  revision:  23  OCT  1996  16h30 

C 

C  set  NPTMX  =  NTDIS*GSMX 

C 


REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
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REAL  I DENT , K , KCHP , MAG 
INTEGER  GSMX , NPTHX 

PARAMETER  (GSMX  =  250 , NPTMX  =  250, NTDIS  =  1) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS ,GSMX) 
COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) .VOLPAR (NTDIS, GSMX) , 

*  NETVF(NPTMX) ,NETVV( NPTMX) ,D ADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cl 1 (NPTMX) ,C12 (NPTMX) ,C21 (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) ,STRNP1( NPTMX) 

COMMON  /PROPD/  YMPARM(4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /VERIF/  VSTRN (NPTMX) .VSTRS(NPTMX) ,VDVV( NPTMX) , 

*  VTSTRS (NPTMX) .EDIFF (NPTMX) .VDIFF(NPTMX) .VPOIS (NPTMX) , 

*  PDIFF(NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

CHARACTER  FILNM*5 


initialize  variables  and  arrays  by  BLOCK  DATA  INIT 


CALL  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT , IKIND , IMORI , IPOIS , GAMM , 

*  PRESS , FILNM , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD .DBANG) 

I ABORT  «  0 

CALL  STRSTN (NDIST . NTOT , NPTS . VOLSMP , FDBND , YMULT .IKIND , IMORI , IPOIS , 

*  GAMM . PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX .NLTOT , STSFUD , STRNP , 

*  DBANG, IABORT) 


write  out  data 

IF(IWRT.GT.O)  CALL  ENDWRT(NDIST, NTOT, VOLSMP, GAMM.FDBND, YMULT 
*  IKIND , IMORI , IPOIS .PRESS , IAUG .FILNM , STSFUD , IWRT) 
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CALL  RESWRT (NDIST , NTOT , VOLSMP , GAMM , FDBND , YHULT , IKIND , 

*  IMORI , IPOIS , PRESS , I AUG , FILNM , STSFUD , IWRT) 

C 

END 

C 

C 

SUBROUTINE  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  GAMM , PRESS , FILNM , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD , DBANG) 

C====  reads  in  problem  input  either  by  file  or  keyboard,  if  data  entered 
C  through  a  file,  user  inputs  name  only,  a  file  extension  of  DAT  is 
C  assumed,  the  first  line  in  the  input  file  is  used  for  a  user 

C  heading  and  is  not  read  in,  constituent  material  properties 

C  designated  as  follows:  1-inclusion, 2-void  or  vacuole, 3-matrix 
C 

C  set  NPTMX  =  NTDIS+GSMX 
C 

REAL  LOGSTD , NP ARTL , NUMPAR , NETVF , NETVV 
REAL  I DENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  250, NPTMX  =  250.NTDIS  =  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) ,VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AK0(1) ,AKi(i) ,AK2(i) .STRNPl (NPTMX) 

COMMON  /PROPD/  YMPARM(4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /VERIF/  VSTRN (NPTMX) ,VSTRS (NPTMX) .VDVV(NPTMX) , 

*  VTSTRS (NPTMX) ,EDIFF (NPTMX) .VDIFF (NPTMX) ,VPOIS (NPTMX) , 

*  PDIFF(NPTMX) 

CHARACTER  ANS*i ,FILNM*5 

C 

WRITE  (6, ’ (/ ,A) ’ )  ’  Read  data  from  file?  (Y/N) ’ 

READ  (5 , * (Al) * )  ANS 
C 

IF  (ANS.EQ.’Y’)  THEN 

WRITE  (6,’ (A)’)  *  File  to  read?  (.INP  will  be  appended)’ 

READ  (5, ’ (A5) ’ )  FILNM 

OPEN  (UNIT=7,FILE=FILNM//’ .INP’ , FORM3’ FORMATTED’ , STATUS*’ OLD ’ ) 
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READ  (7,*) 

READ  (7,*)  NTQT 
READ  (7,*)  NDIST 
DO  10  I  =  1 .ABS(NDIST) 

READ  (7,*)  RADAVG(I) 

READ  (7,*)  LOGSTD(I) 

READ  (7,*)  VLFRFO ( I ) , VLFRVO ( I ) 

10  CONTINUE 

READ  (7,*)  VOLSMP 

READ  (7,*)  FDBND , YMULT , IKIND , IMORI , IPOIS 
READ  (7,*)  G(3) ,G(1) 

READ  (7,*)  P0IS(3),P0IS(1) 

READ  (7,*)  G(2) ,K(2) 

READ  (7,*)  GAMM, PRESS 
READ  (7,*)  IAUG , STNTOL , ITERMX 
READ  (7,*)  NLTOT , STSFUD , DBANG , ISKIP 
READ  (7,*)  AKO(l) ,AK1(1) ,AK2(1) 

READ  (7,*)  YMPARM(l) ,YMPARM(2) ,YMPARM(3) ,YMPARM(4) 

READ  (7,*)  CVPARM(l) ,CVPARM(2) ,CVPARM(3) 

READ  (7,*)  FBPARM(l) fFBPARM(2) ,FBPARH(3) 

CLOSE  (7) 

ELSE 

WRITE  (6,’ (/.A, 13, A)’) 

*  *  no.  pts  desired  in  stress -strain  curve  (O.GSMX,’)’ 

READ  (5,*)  NTOT 

WRITE  (6, * (A, II, A) ’)  *  no.  of  particle  distributions  (<=’, 

*  NTDIS, ’ ) ' 

READ  (5,*)  NDIST 

DO  20  I  ■  1,ABS (NDIST) 

WRITE  (6, ’(A, II, A)’)  »  for  distribution  no.  »,I, 

*  *  mean  radius  (micron) * 

READ  (5,*)  RADAVG(I) 

WRITE  (6,’ (A)’)  »  log  normal  radius  std  dev' 

READ  (5,*)  LOGSTD(I) 

WRITE  (6,’ (A)’)  *  initial  volume  fraction  filler  and  void* 
READ  (5,*)  VLFRFO (I) .VLFRVO (I) 


20 


CONTINUE 
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WRITE  (6,* (A)’)  ’  sample  volume  (mm3)’ 

READ  (5,*)  VOLSMP 

WRITE  (6,’ (A)’)  ’  dbnd  frac.rad  dist  mult,w-type,m-type,v-type* 

READ  (5,*)  FDBND , YMULT , IKIND , IHORI , IPOIS 

WRITE  (6,’ (A)’)  *  matrix  and  filler  shear  modulus  (Pa)’ 

READ  (5,*)  G(3) ,G(1) 

WRITE  (6, ’(A)’)  ’  matrix  and  filler  Poisson  ratio* 

READ  (5,*)  P0IS(3) ,P0IS(1) 

WRITE  (6, ’(A)’)  ’  void  shear  and  bulk  modulus  (Pa)’ 

READ  (5,*)  G(2),K(2) 

WRITE  (6, ’(A)*)  ’  Gc  (J/m2)  and  applied  pressure  (Pa)’ 

READ  (5,*)  GAMM, PRESS 

WRITE  (6, ’(A)’)  ’  a-type,  strain  tolerance,  max.  iterations’ 
READ  (5,*)  IAUG , STNTOL , ITERMX 

WRITE  (6, ’(A)’)  ’  #  pts  before  debnd,  crit  strs(Pa),  debond  ang 
*(deg),  avg.frc.’ 

READ  (5,*)  NLTOT , STSFUD , DBANG , ISKIP 

WRITE  (6, ’(A)’)  ’  matrix  tensile  modulus  coeffs  k0,ki,k2  (Pa)’ 
READ  (5,*)  AK0(1) , AK1 (1) ,AK2(1) 

WRITE  (6, ’(A)’)  ’  Ym  step,  Ym  max  iter,  Ym  '/,err,  start  index’ 
READ  (5,*)  YMPARM(i) ,YMPARM(2) ,YMPARM(3) ,YMPARM(4) 

WRITE  (6, ’(A)’)  ’  Cv  step  size,  Cv  '/,err,  start  index’ 

READ  (5,*)  CVPARM(i) ,CVPARM(2) ,CVPARM(3) 

WRITE  (6, ’(A)’)  ’  Fb  step,  Fb  max  iter,  Fb  '/.err’ 

READ  (5,*)  FBPARM(i) ,FBPARM(2) ,FBPARM(3) 

FILNH  =  ’DEFAULT’ 

ENDIF 

C 

C==  set  write  file  flag,  0=STRWRT,  1=STRWRT , DBGWRT , HSTWRT ,  2=all 
IWRT  =  0 

IF  (NDIST.LT. 0)  IWRT  =  1 
NDIST  =  ABS(NDIST) 

IF  (IAUG.EQ.O)  NLTOT  =  0 


read  datafile  containing  stress-strain  verification  data 


C 

C 

C 


NTOT  ■  0 
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WRITE  (6,’(A,A8)’)  *  Reading  Data  File:  ’ ,FILNH 

OPEN  (UNIT=7 , FILE=FILNM// ’ .DAT’ , FORM= » FORMATTED ’ , STATUS= » OLD » ) 

READ  (7,*) 

DO  30  I  -  1, NPTMX 

READ  (7,* ,END=40)  VSTRN(I) ,VSTRS(I) ,VDVV(I) ,VTSTRS(I) 

VSTRS(I)  =  VSTRS(I)*1E6 
VTSTRS(I)  =  VTSTRS(I) *1E6 
NTOT  ■  NTOT+1 
30  CONTINUE 
40  CONTINUE 
CLOSE  (7) 

C 

RETURN 

END 

C 

C 

SUBROUTINE  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , GAMM , PRESS , DILATO , IWRT , I AUG , STNTOL , ITERMX , NLTOT , STSFUD , 

*  STRNP , DBANG , I ABORT) 

C====  main  subroutine  which  organizes  finding  optimal  Ym 
C 

REAL  LOGSTD , NP ARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  250 , NPTMX  =  2S0.NTDIS  =  1) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cli (NPTMX) ,C12 (NPTMX) ,C21 (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) , AK1(1) ,AK2(1) , STRNP 1( NPTMX) 

COMMON  /VERIF/  VSTRN (NPTMX)  .VSTRS(NPTMX)  ,VDW( NPTMX)  , 

*  VTSTRS (NPTMX) .EDIFF(NPTMX) ,VDIFF(NPTMX) .VPOIS (NPTMX) , 

*  PDIFF(NPTMX) 

C 

C  initialize  abort  flag 
I ABORT  =  0 

C  find  index  that  separates  no  debonding  and  debonding  phases 
DO  10  I  =  1 , NTOT 
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IF  (VTSTRS(I) .LE.STSFUD)  ICUTOF  =  I 
10  CONTINUE 
C 

CALL  YMFIND (ICUTOF , FDBND , YMULT , IKIND , IMORI , IPOIS , I AUG , STNTOL , 

*  ITERMX , IABORT) 

C 

C  CALL  CVPLT( ICUTOF, IABORT) 

C 

CALL  CVFIND (NTOT , ICUTOF , FDBND .YMULT , IKIND , IMORI , IPOIS , I AUG .STNTOL , 

*  ITERMX. IABORT) 

C 

C  CALL  CVPLT (NTOT, IABORT) 

C 

NDIST  =  ICUTOF 
C 

RETURN 

END 

C 

C 

SUBROUTINE  YMFIND (ICUTOF .FDBND .YMULT , IKIND , IMORI , IPOIS , IAUG, 

*  STNTOL, ITERMX, IABORT) 

C====  subroutine  finds  the  particle  interaction  factor  that  will  give 
C  lowest  overall  error  when  comparing  theoretical  E  to  expt  E. 

C  convert  dilatation  data  to  Poisson  data  to  make  comparison. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX.NPTMX 

PARAMETER  (GSMX  =  250 , NPTMX  =  250.NTDIS  =  1) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF(NPTMX) .NETVV (NPTMX) .DADC(NPTMX) , NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C2i (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) .STRNPl (NPTMX) 
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COMMON  /PROPD/  YMPARMC4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) .SORVLP (NPTMX) , 

*  IPDIST(NPTMX) 

COMMON  /VERIF/  VSTRN (NPTMX) ,VSTRS (NPTMX) ,VDVV( NPTMX) , 

*  VTSTRS (NPTMX) .EDIFF (NPTMX) ,VDIFF (NPTMX) .VPOIS(NPTMX) , 

*  PDIFF(NPTMX) 

IF  (I ABORT. EQ. 1)  RETURN 

YMSTEP  -  YMPARM(i) 

IUPDWN  *  0 
IHOLD  =  0 
ICNT  =  1 

ISTART  =  INT(YMPARM(4) ) 

CONCI  =  VLFRFO(l) 

CONCV  =  VLFRVO(i) 

STRNO  ■  VSTRN (ISTART) 

ECMPX  =  VTSTRS (ISTART) /VSTRN (ISTART) 

CALL  MTPRP (CONCI .CONCV, ICNT, FDBND , YMULT , IKIND , IMORI , IPOIS , STRNO , 

*  IAUG.IABORT) 

STRNPO  *  ECMPX/E(3)*STRN0 

WRITE  (6, ’ (/ ,A,I3) ’ )  ’  Number  of  points  in  initial  phase*’ .ICUTOF 
WRITE  (6,5000) 

ICVEND  =  INT(YMPARM(2)) 

DO  50  ICVRG  *  1, ICVEND 

DO  30  ICNT  «  ISTART, ICUTOF 
STRNO  «  VSTRN (ICNT) 

ECMPX  *  VTSTRS (ICNT+i)/VSTRN(ICNT+i) 

DO  10  JTER  »  l.ITERMX 

CALL  MTPRP (CONCI .CONCV , ICNT .FDBND .YMULT, IKIND , IMORI , 

*  IPOIS, STRNPO, IAUG.IABORT) 

STRNPl(ICNT)  *  (ECMP (ICNT) /E(3) ) *STRNO 
ERR  =  1 

IF  (STRNPl(ICNT) .NE.O)  ERR  = 
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*  ABS ( ( STRNP 1 ( ICNT ) -STRNPO ) /STRNP 1 (ICNT ) ) 

IF  (ERR . LE . STNTOL)  GOTO  20 

STRNPO  =  STRNP 1 (ICNT) 

CONTINUE 
WRITE  (6,’ (A)’) 

*  ’  SBR  YMFIND:  matrix  strain  iteration  max.  reached.’ 
I ABORT  =  1 

IF  (IABORT.EQ. 1)  RETURN 
CONTINUE 

EDIFF(ICNT)  =  (ECMP ( I CNT ) / ECHPX ) - 1 
NETVF(ICNT)  =  CONCI 
NETVV(ICNT)  =  CONCV 
CONTINUE 


use  array  PRBSRV  to  temporarily  hold  EDIFF  data  for  calc  of  stats 
IDUM  =  0 

DO  40  I  =  I START , ICUTOF 
IDUM  =  IDUM+1 
PRBSRV (IDUM)  ■  EDIFF(I) 

CONTINUE 

EMAX  *  FMAX (PRBSRV, IDUM) 

EMIN  *  FMIN (PRBSRV, IDUM) 

CALL  MOMENT (PRBSRV , IDUM , AVE , ADEV , SDEV , VAR , SKEW , CURT) 

WRITE  (6,5100)  YMULT, AVE, SDEV, VAR, EMAX, EMIN 

IF  (ABS(AVE) .LE.YMPARM(3))  GOTO  60 
IF  (AVE . GE . 0 . AND . ICVEND . GT . i )  THEN 
IUPDWN  =  0 

IF  ( IUPDWN. NE.IHOLD)  YMSTEP  =  0.1*YMSTEP 
YMULT  =  YMULT-YMSTEP 
ELSEIF  ( AVE. LT.O. AND. ICVEND. GT.l)  THEN 
IUPDWN  =  1 

IF  (IUPDWN. NE.IHOLD)  YMSTEP  =  0.1*YMSTEP 
YMULT  =  YMULT+YMSTEP 
ELSE 
END  IF 
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IHOLD  =  IUPDWN 
C 

50  CONTINUE 

IF ( I CVEND . GT . 1 ) THEN 

WRITE  (6,’ (A)’)  ’  SBR  YMFIND:  Ym  iteration  max.  reached.’ 

IABORT  =  1 
END  IF 

60  CONTINUE 

WRITE  (6, ’(A, Ell. 4)’)  ’  SBR  YMFIND:  optimum  YMULT=  ’.YMULT 
C 

DO  70  ICNT  =  ISTART+i.ICUTOF 

DILAT(ICNT)  =  (1-2 . 0*P0ISC(ICNT-1) ) *VSTRN (ICNT) 

STRESS (ICNT)  =  ECMP(ICNT-1)*VSTRN(ICNT) 

VDIFF(ICNT)  =  DILAT (ICNT) -VDVV (ICNT) 

VPOIS(ICNT)  =  ((VDVV(ICNT)/VSTRN(ICNT) )-l)/ (-2.0) 

IF  (VPOIS(ICNT) .NE.O)  PDIFF(ICNT)  =  (P0ISC(ICNT)/VP0IS(ICNT))-1 
70  CONTINUE 
C 

RETURN 

5000  FORMAT  (/,’  YMULT  avg  Edif  sdev  var  m 

*ax  min’) 

5100  FORMAT  (1X.1P6E12.4) 

END 

C 

C 

SUBROUTINE  CVFIND (NTOT , ICUTOF , FDBND , YMULT , IKIND , IMORI , IPOIS , IAUG , 

*  STNTOL.ITERMX, IABORT) 

CXXX=  subroutine  finds  the  void  fraction  that  will  give 
C  lowest  overall  error  when  comparing  theoretical  E  to  expt  E. 

C  convert  dilatation  data  to  Poisson  data  to  make  comparison. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETW 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  ■  250 , NPTMX  «  260.NTDIS  *  1) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETW (NPTMX) ,DADC (NPTMX) , NPARTL (NTD IS) 
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COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD(NTDIS) ,VLFRFO(NTDIS) , 

*  VLFRVO(NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23CNPTMX) .ECMP(NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(i) ,AKi(i) , AK2(1) ,STRNP1 (NPTMX) 

COMMON  /PROPD/  YMPARM(4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /RESULT/  CRTSTN (NPTMX) , STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) ,SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /VERIF/  VSTRN(NPTMX) ,VSTRS(NPTMX) ,VDVV(NPTMX) , 

*  VTSTRS (NPTMX) .EDIFF (NPTMX) ,VDIFF (NPTMX) ,VPOIS (NPTMX) , 

*  PDIFF(NPTMX) 

IF  (IABDRT.EQ. i)  RETURN 

ISTART  =  INT(YMPARM(4)) 

FBSTEP  =  FBPARM ( 1 ) 

ICVEND  =  INT(VLFRFO(l)/CVPARM(i) ) 

IFBEND  =  INT (FBPARM (2)) 

WRITE  (6, ’ (/,A,I3) * )  ’  Number  of  points  in  debond  phase=  * ,NTOT- 

*  ICUTOF 
WRITE  (6,5000) 

DO  70  ICVRG  =  1, IFBEND 
ICVBEG  =  1 
IUPDWN  =  0 
IHOLD  =  0 
CONCI  =  VLFRFO(l) 

CONCV  *  VLFRVO(l) 

DO  50  ICNT  =  ICUTOF+1 ,NTOT-i 
STRNO  =  VSTRN(ICNT) 

ECMPX  =  VTSTRS ( ICNT+ 1 ) / VSTRN ( ICNT+ 1 ) 

CALL  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  STRNO, IAUG,IABORT) 

STRNPO  =  ECMPX/E(3)*STRN0 
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DD  30  ICV  =  ICVBEG , ICVEND 
CONCV  =  CONCV+CVPAEHCl) 

CONCI  -  CONCI-CVPARM(l) 

DO  10  JTER  =  1 , ITERMX 

GALL  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , 
IPOIS , STRNPO , IAUG , I ABORT) 

STRNPi(ICNT)  =  (ECMP(ICNT) /E(3) ) *STRNO 
ERR  =  1 

IF  (STRNPl(ICNT) .NE.O)  ERR  = 

ABS ( (STRNP1 (ICNT) -STRNPO) /STRNP1 (ICNT) ) 

IF  (ERR . LE . STNTOL)  GOTO  20 
STRNPO  =  STRNP 1 ( ICNT) 

CONTINUE 
WRITE  (6, ’(A)’) 

’  SBR  CVFIND:  matrix  strain  iteration  max.  reached.’ 
IABORT  =  1 

IF  (I ABORT. EQ. 1)  RETURN 
CONTINUE 

EDIFF(ICNT)  =  (ECMP ( ICNT ) /ECMPX) - 1 
IF  (EDIFF(ICNT) .LT.O)  THEN 

WRITE  (6,’ (A)’)  *  SBR  CVFIND: increase  Ym  as  required 

IABORT  =  1 

RETURN 

ELSEIF  (ABS(EDIFF(ICNT)).LE.CVPARM(2))  THEN 
GOTO  40 
ELSE 
ENDIF 

CONTINUE 

overstepped  Fb  that  permits  solution,  go  modify  Fb  and  rado 
IHOLD  «  1 
GOTO  90 

CONTINUE 
ICVBEG  =  ICV+1 
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NETVV(ICNT)  =  CQNCV 
NETVF(ICNT)  =  CDNCI 

DILAT(ICNT)  •=  (1-2 . 0*P0ISC(ICNT-1) ) *VSTRN(ICNT) 

STRESS(ICNT)  =  ECMP(ICNT-1)*VSTRN(ICNT) 

C  IF  (VDVV(ICNT) .NE.O)  VDIFF(ICNT)  *  (DILAT(ICNT)/ 

C  *  VDVV(ICNT))-1 

VDIFF(ICNT)  =  DILAT  ( ICNT)  -VDW  ( ICNT  ) 

VPOIS(ICNT)  -  ((VDW (ICNT) /STRNO)-l)/ (-2.0) 

IF  (VPOIS (ICNT) .NE.O)  PDIFF(ICNT)  =  (POISC(ICNT)/ 

*  VPOIS(ICNT) )-l 

50  CONTINUE 

C 

C  use  array  PRBSRV  to  temporarily  hold  VDIFF  data  for  calc  of  stats 
IDUM  =  0 

DO  60  I  -  INT(ICUT0F+CVPARM(3)) .NTOT-l 
IDUM  =  IDUM+1 
PRBSRV (IDUM)  =  VDIFF (I) 

60  CONTINUE 

C 

VMAX  =  FMAX (PRBSRV, IDUM) 

VMIN  =  FMIN (PRBSRV, IDUM) 

CALL  MOMENT (PRBSRV , IDUM , AVE , ADEV , SDEV , VAR , SKEW , CURT) 

VFREM  =  C0NCI/VLFRF0(1) 

WRITE  (6,5100)  FDBND, AVE, VFREM, SDEV, VMAX, VMIN 
C 

IF  (ABS(AVE) .LE.FBPARM(3))  GOTO  80 
90  CONTINUE 

IF  (IFBEND.GT.l)  THEN 

IF  (IUPDWN.NE.IHOLD)THEN 
FDBND  =  FDBND-FBSTEP 
FBSTEP  =  0 . 1+FBSTEP 
ENDIF 

FDBND  =  FDBND +FBSTEP 
ENDIF 
C 

70  CONTINUE 

IF  (IFBEND.GT.l)  WRITE  (6,’^)’)  »  SBR  CVFIND:  Fb  iteration  max.  r 


UNCLASSIFIED 

B17 


♦eached. * 

80  CONTINUE 

WRITE  (6,’ (A, EH- 4)’)  *  SBR  CVFIND:  optimum  Fb  =  » .FDBND 
C 

RETURN 

5000  FORMAT  (/,’  Fb  avg  Vdif  fr.Ci  sdev 

*ax  min’) 

5100  FORMAT  (IX, 1P6E12.4) 

END 

C 

C 

SUBROUTINE  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  STNTMP , IAUG , IABORT) 

C===-  program  for  calculating  composite  modulus  based  on  Mori-Tanaka. 

C  FDBND=fraction  debond  for  orthotropic  properties  in  loading 
C  direction,  IKIND=use  inclusion  or  void  properties  in  calc  of 
C  Wv  matrix,  IMORI=type  of  particle  interaction  used  0=none, 

C  i=inclusion,  2=inclusion  and  void  or  vacuole, IPOIS=type  of 

C  debond  properties  Osorthotropic, l=isotropic.  recalculates 
C  matrix  modulus  each  time  routine  is  called. 

C 

REAL  IDENT , K , KCMP , MAG 

PARAMETER  (GSMX  =  250 , NPTMX  =  250,NTDIS  =  1) 

COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC (NPTMX) 

DIMENSION  CAVG(3 ,3) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

C  changed  this  block  so  that  any  variables  that  depend  on  matrix 
C  modulus  calculated  each  time  new  strain  is  available 
CALL  CALCIO (STNTMP, IAUG, IABORT) 

CALL  CALCCV (FDBND .IPOIS , IABORT) 

CALL  CMPRP0( IKIND, IMORI, I ABORT) 

C 

CALL  CMPRP (CONCI .CONCV, YMULT, CAVG, I ABORT) 

Cii(ICNT)  =  CAVG(1,1) 
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C12CICNT)  =  CAVG(1 ,2) 

C21CICNT)  ■  CAVG(2,1) 

C22(ICNT)  =  CAVG(2,2) 

C23(ICNT)  =  CAVG(2,3) 

ECHP(ICNT)  =  Cl 1 (ICNT) -2 . 0*C 12 ( ICNT) *C2 1 ( ICNT) / (C22 (ICNT) + 

*  C23CICNT)) 

POISC(ICNT)  =  C21 (ICNT) / (C22 (ICNT) +C23(ICNT) ) 

C 

RETURN 

END 

C 

C 

BLOCK  DATA  INIT 

C====  initialize  all  variables  and  arrays  used  in  program 
C  check  NPTMX  if  NTDIS  or  GSHX  are  changed. 

C  NPTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMP AR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  250, NPTMX  =  250, NTDIS  «  1) 

COMMON  /GAUS/  Z (GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 
COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG (NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA (2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) ,STRNP1 (NPTMX) 

COMMON  /PROPD/  YMPARM(4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /VERIF/  VSTRN (NPTMX) .VSTRS (NPTMX) .VDVV(NPTMX) , 

*  VTSTRS (NPTMX) .EDIFF(NPTMX) ,VD IFF (NPTMX) .VPOIS(NPTMX) , 

*  PDIFF (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT (NPTMX) , 
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*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

DATA  Z  /GSMX+O/  RADIUS  /NPTMX+O/  PROB  /NPTMX+O/ 

DATA  NUMPAR  /NPTMX+O/  VOLPAR  /NPTMX+O/  NETVF  /NPTMX*0/  NETVV  / 

*  NPTMX+O/  DADC  /NPTMX+O/  NPARTL  /NTDIS+O/ 

DATA  RADAVG  /NTDIS+O/  LOGSTD  /NTDIS+O/  VLFRFO  /NTDIS+O/  VLFRVO  / 

*  NTDIS+O/ 

DATA  BETA  /2+0/  WI  /9+0/  WV  /9+0/  IDENT  /l, 0,0, 0,1, 0,0, 0,1/ 

DATA  S  /9+0/  CA  /9+0/  CB  /9+0/  CE  /9+0/  CF  /9+0/ 

DATA  K  /3+0/  G  /3+0/  E  /3+0/  POIS  /3+0/  Cl  /9+0/  CV  /9+0/  CO  /9+0/ 
DATA  Cll  /NPTMX+O/  C12  /NPTMX+O/  C21  /NPTMX+O/  C22  /NPTMX+O/  C23  / 

*  NPTMX+O/  ECMP  /NPTMX+O/  POISC  /NPTMX+O/ 

DATA  AKO  /l+O/  AK1  /l+O/  AK2  /l+O/  STRNP1  /NPTMX+O/ 

DATA  YMPARM  /4+0/  CVPARM  /3+0/  FBPARM  /3+0/ 

DATA  VSTRN  /NPTMX+O/  VSTRS  /NPTMX+O/  VDVV  /NPTMX+O/  VTSTRS  /NPTMX* 

*  0/  EDIFF  /NPTMX*0/  VDIFF  /NPTMX*0/  VPOIS  /NPTMX+O/  PDIFF  /NPTMX 

*  *0/ 

DATA  CRTSTN  /NPTMX+O/  STRESS  /NPTMX+O/  DILAT  /NPTMX+O/  PRBSRV  / 

*  NPTMX*0/  SORRAD  /NPTMX*0/  SORPAR  /NPTMX*0/  SORVLP  /NPTMX+O/ 

*  IPDIST  /NPTMX+O/ 

C 

END 

C 

C 

SUBROUTINE  CALCIO (STNTMP , IAUG , I ABORT) 

C====  calculate  the  property  matrix  for  inclusion  and  matrix, 

C  isotropic  relations,  have  assumed  that  matrix  tensile 
C  modulus  can  be  fitted  to  a  3rd  order  polynomial. 

C 

REAL  IDENT, K.KCMP, MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  «  250, NPTMX  «  250,NTDIS  *  1) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO ( 1 ) , AK 1 ( 1 ) , AK2 ( 1 ) , STRNP 1 (NPTMX ) 

C 


IF  (IABORT.EQ. 1)  RETURN 
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C 

C  make  matrix  shear  modulus  dependent  on  strain  if  NL  analysis 
C  desired  (IAUG>0) .  chose  this  form  to  make  compatible  with  existing 
C  program  and  allow  the  tensile  modulus  curve-fitted  parameters  to 
C  be  entered. 

IF  (IAUG.GT.O)  G(3)  =  (AK0(i)+AKi(i)*STNTMP+AK2(i)*STNTMP**2)/(2.0 
*  *(1+P0IS(3))) 

C 

K(l)  =  (2 . 0*G ( 1) * ( 1+PQIS (l)))/(3.0*(i. 0-2 . 0*P0IS ( 1) ) ) 

E(l)  ■  G(1)*(2.0*(1+P0IS(1))) 

K(3)  =  (2.0*G(3)*(1+P0IS(3)))/(3.0*(1 .0-2.0*P0IS(3))) 

E(3)  =  G(3)*(2.0*(1+P0IS(3))) 

Cl  =  K(l)+(4.0/3.0)*G(l) 

C2  =  K(l)-(2.0/3.0)*G(l) 

C3  =  K(3)+(4.0/3.0)*G(3) 

C4  =  K(3)-(2.0/3.0)*G(3) 

DO  20  I  =  1,3 
DO  10  J  =  1,3 
CI(I,J)  =  C2 
C0(I,J)  ■  C4 
IF  (I.EQ.J)  CI(I,J)  =  Cl 
IF  (I.EQ.J)  C0(I,J)  =  C3 
10  CONTINUE 
20  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  CALCCV (FDBND , IPOIS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  CMPRPO (IKIND , IMORI , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
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RETURN 

END 

C 

SUBROUTINE  CMPRP (CONCI , CONCV , YMULT , CAVG , IABORT) 
(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  CALCW(IKIND , IMORI , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  CALCS (IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  GAMMA (A , CONC , ITYPE , YMULT , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  ADD(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  SUB(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
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C 

C 

SUBROUTINE  MULT(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  INVERT (AI , A , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

C**#*  function  for  finding  maximum  value 
FUNCTION  FMAX(DATA.N) 

DIMENSION  DATA(N) 

BIG  =  -1.0E10 
C 

DO  10  I  -  1,N 

BIG  =  AMAX1 (DATA (I), BIG) 

10  CONTINUE 
FMAX  -  BIG 
C 

RETURN 

END 

C 

C 

SUBROUTINE  ENDWRT (ICUTOF , NTOT , VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI , 
*  IPOIS, PRESS , IAUG.FILNM , STSFUD , IWRT) 

C— — — =  write  out  strain, E_expt, E.pred, E_diff ,Pois_expt ,Pois_pred,P_diff 
C  TStrs  expt.TStrs  pred.NetVV 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  I DENT , K , KCMP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  *  250, NPTMX  =  250.NTDIS  =  1) 
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COMMON  /DEBUG/  NUMPAR(NTDIS.GSMX) ,VOLPAR(NTDIS,GSMX) , 

*  NETVF(NPTMX) .NETVV(NPTMX) .DADC(NPTMX) .NPARTL(NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD(NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO(NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cii(NPTMX) ,C12(NPTMX) ,C2i(NPTMX) ,C22(NPTMX) , 

*  C23(NPTMX) .ECMP(NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) .STRNPi (NPTMX) 

COMMON  /PROPD/  YMPARM(4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) , SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST(NPTMX) 

COMMON  /VERIF/  VSTRN ( NPTMX ) ,VSTRS( NPTMX ) ,VDVV( NPTMX ) , 

*  VTSTRS (NPTMX) .EDIFF(NPTMX) .VDIFF(NPTMX) .VPOIS(NPTMX) , 

*  PDIFF (NPTMX) 

CHARACTER  FILNM*5 

C 

IF  (FILNM .  EQ .  ’ DEFAULT  ’ )  FILNM  *  ’_STRS’ 

WRITE  (6, * (/,A,A5,A) ’)  ’  Writing  to  », FILNM, >0. DAT' 

C 

OPEN  (UNIT=7 , FILE=FILNM/ /  ’  0 . DAT ’ , STATUS=’ UNKNOWN ’ ) 

WRITE  (7,6000) 

1=1 

WRITE  (7, ’ (1X,I1,4(3X,0PE11 .4)) ’ )  I ,RADAVG(I) .LOGSTD(I) , 

*  VLFRFO(I) ,VLFRVO(I) 

C 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IHORI,IPOIS 
WRITE  (7,6300)  ICUTOF,GAMM,IAUG,STSFUD 
WRITE  (7,5500)  AKO(l) ,AK1(1) ,AK2(1) 

WRITE  (7,6400) 

ISTART  «  INT(YMPARM(4)) 

DO  20  ICNT  -  ISTART+i ,NT0T-1 

ECMPI  =  VTSTRS ( ICNT+ 1 ) /VSTRN ( ICHT+ 1) 

WRITE  (7,5600)  VSTRN(ICNT) .ECMPI .ECMP(ICNT) .EDIFF(ICNT) , 

*  VDVV(ICNT) .DILAT(ICNT) .VDIFF(ICNT) .VPOIS(ICNT) .POISC(ICNT) , 

*  PDIFF (ICNT)  .VTSTRS (ICNT)  .STRESS(ICNT)  .NETW(ICNT) 
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20  CONTINUE 
C 

CLOSE  (7) 

RETURN 

5000  FORMAT  (’  #  avg  Rad(um)  std  dev  Vf  Vv’) 

5100  FORMAT  (»  Gm(Pa)=’ .OPEll .4, *  Gf (Pa)=* .OPEll .4, *  vm=’ .OPEll .4, 

*  »  vf=» .OPEll. 4, »  Gv(Pa)=* ,0PE11 .4, *  Kv=’ .OPEli .4) 

5200  FORMAT  (»  V(mm3)  -’.0PE11.4,'  frac  dbnd=’ .OPEll .4, »  Y-mult3’ , OPEll 

*  .4,’  w-type=’ ,13, *  m-type= ’ , 13 , *  v-type=’,I3) 

5300  FORMAT  (*  ICUTOF- * , 13 , *  Gc(Pa-m)=’ .OPEll .4, »  IAUG*’ ,12, 

*  *  crit.strs(Pa)=’ , OPEll. 4) 

5400  FORMAT  (’  crit  strn  E_expt(Pa)  E_pred(Pa)  '/,E_diff  V_ 

♦expt  V_pred  abs  V_diff  v_expt  v_pred  y.v 

*_diff  TS.expt  TS.pred  NetVV’) 

5500  FORMAT  (»  AKO(Pa)=’ .OPEll. 4, »  AKl(Pa)-’ .OPEll .4, ’  AK2 (Pa) «» .OPEll 

*  .4) 

5600  FORMAT  (1X.13C1PE11.4.2X)) 

C 

END 

C 

C 

SUBROUTINE  RESWRT ( I CUTOF , NTOT , VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI . 

*  IPOIS . PRESS , I AUG . FILNM , STSFUD , IWRT) 

C====  write  out  strain, E_expt ,E_pred,E_diff ,Pois_expt ,Pois_pred,P_diff 
C  TStrs  expt.TStrs  pred, NetVV 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  I DENT , K , KCMP , MAG 
INTEGER  GSMX.NPTMX 

PARAMETER  (GSMX  =  250.NPTMX  =  250.NTDIS  =  1) 

COMMON  /DEBUG/  NUMPARCNTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) .DADC(NPTMX) , NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) .G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cl 1 (NPTMX) ,C 12 (NPTMX) ,C21 (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP( NPTMX) .POISC(NPTMX) 
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COMMON  /PROPC/  AKO(i) ,AKl(i) ,AK2(1) ,STRNP1 (NPTMX) 

COMMON  /PROPD/  YMPARM (4) ,CVPARM(3) ,FBPARM(3) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) ,SORRAD( NPTMX) ,SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /VERIF/  VSTRN(NPTMX) ,VSTRS (NPTMX) ,VDVV(NPTMX) , 

*  VTSTRS (NPTMX) .EDIFF (NPTMX) ,VDIFF (NPTMX) .VPOIS(NPTMX) , 

*  PD IFF (NPTMX) 

CHARACTER  FILNM*5 

IF  (FILNM.EQ. ’DEFAULT’)  FILNM  =  ’_STRS’ 

WRITE  (6, ’ (/,A,A5,A) * )  ’  Writing  to  ’ .FILNM, ’R. DAT’ 

OPEN  (UNIT=7 , FILE=FILNM/ / ’ R . DAT’ .STATUS® ’UNKNOWN’) 

WRITE  (7,5000) 

1=1 

WRITE  (7, ’ (1X,I1 ,4(3X,0PE11 .4)) ’)  I ,RADAVG(I) ,LOGSTD(I) , 

*  VLFRFO(I) ,VLFRVO(I) 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IMORI,IPOIS 
WRITE  (7,5300)  ICUTOF,GAMM,IAUG,STSFUD 
WRITE  (7,5500)  AKO(l) , AK1(1) , AK2(1) 

WRITE  (7,5400) 

ISTART  =  INT (YMPARM (4) ) 

GCTOT  =  0 
IDUM  =  0 

DO  20  ICNT  *  ISTART+1 ,NT0T-1 

ECMPI  «  VTSTRS ( ICNT+ 1 ) /VSTRN ( ICNT+ 1 ) 

ECMPO  «  VTSTRS (ICNT) /VSTRN (ICNT) 

DC  «  NETVF ( ICNT ) -NETVF (ICNT- 1 ) 

IF(DC.NE.O)THEN 

GCDADC  *  ( (ECMPI-ECMPO) /DC) ♦VSTRN ( ICNT) **2 
GCTOT  »  GCTOT+GCDADC 
IDUM  =  IDUM+1 
SORRAD(IDUM)  -  GCDADC 


END  IF 
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WRITE  (7,5600)  VSTRN(ICNT) ,VTSTRS(ICNT)/1E6,STRESS(ICNT)/1E6, 

*  VDVV(ICNT) .DILAT(ICNT) .NETVV(ICNT) ,GCDADC/1E6,ABS(DC) , 

*  GCT0T/1E6 
20  CONTINUE 

C 

CLOSE  (7) 

C 

CALL  MOMENT (SORRAD , IDUM , AVE , ADEV , SDEV , VAR , SKEW , CURT) 

WRITE (6, ’ (/ ,A, IPEii .4, IX, 1PE11.4) ’ )  »  SBR  RESWRT:  avg.  and  tot.  en 
*ergy  release  (MPa) : » , AVE/1E6.GCT0T/1E6 
C 

RETURN 

5000  FORMAT  (»  #  avg  Rad(um)  std  dev  Vf  Vv») 

5100  FORMAT  (’  Gm(Pa)=’ ,0PE11 .4, »  Gf (Pa)«» ,0PE11 .4, *  vm=> ,0PE11 .4, 

*  »  vf=’ .0PE11.4,*  Gv(Pa)=’ ,0PE11 .4, *  Kv-» .0PE11.4) 

5200  FORMAT  (»  V(mm3)  «»,0PEii.4,»  frac  dbnd=’ .OPEll .4, ’  Y-mult=’ ,0PE11 

*  .4,’  w-type=’ ,13, ’  m-type= ’ , 13 , ’  v-type=’,I3) 

5300  FORMAT  (»  ICUTOF=’ ,13 , ’  Gc(Pa-m)=’ .0PE11.4, ’  IAUG=’ ,12, 

*  *  crit .strs(Pa)s’ ,0PE11 .4) 

5400  FORMAT  (»  crit  strn  TS.exp(MPa)  TS_cal(MPa)  dV.exp  d 

*V_cal  NetVv  GCDADC(MPa)  dC  CumGcAC (MPa) » ) 

5500  FORMAT  (»  AKO(Pa)** .0PE11.4, »  AKl(Pa)«» .0PE11.4, »  AK2(Pa)=» ,0PE11 

*  .4) 

5600  FORMAT  ( IX, 9 (1PE11. 4, 2X)) 

C 

END 

C 

C 

C****  function  for  finding  minimum  value 
FUNCTION  FMIN(DATA,N) 

DIMENSION  DATA(N) 

SMALL  =  1.0E10 
C 

DO  10  I  =  1 ,N 

SMALL  =  AMIN1 (DATA(I) , SMALL) 

10  CONTINUE 
FMIN  =  SMALL 
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C 

RETURN 

END 

C 

C 

O***  variable  identification 
C  DATA  :  array  of  DATA  of  length  N 
C  AVE  :  average 

C  ADEV  :  average  deviation  or  mean  absolute  deviation 
C  SDEV  :  standard  deviation 

C  VAR  :  variance 

C  SKEW  :  skewness 

C  CURT  :  kurtosis 

C 

SUBROUTINE  MOMENT (DATA , N , AVE , ADEV , SDEV , VAR , SKEW , CURT) 
DIMENSION  DATA(N) 

IF  (N.LE.l)  PAUSE  ’N  must  be  at  least  2» 

S  =  0. 

DO  10  J  =  1,N 
S  =  S+DATACJ) 

10  CONTINUE 
AVE  =  S/N 
ADEV  =  0. 

VAR  =  0. 

SKEW  =  0. 

CURT  =  0. 

DO  20  J  =  1,N 

S  ■  DATA(J)-AVE 
ADEV  «  ADEV+ABSCS) 

P  *  S*S 
VAR  »  VAR+P 

p  «  p*s 

SKEW  «  SKEW+P 
P  *  P*S 
CURT  «  CURT+P 


20  CONTINUE 

ADEV  =  ADEV/N 
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VAR  =  VAR/CN-l) 

SDEV  =  SQRT(VAR) 

IF  (VAR.NE.O.)  THEN 

SKEW  =  SKEW/ (N*SDEV**3) 

CURT  »  CURT/ (N*VAR**2)-3. 

ELSE 

PAUSE  ’no  skew  or  kurtosis  when  zero  variance’ 
ENDIF 
RETURN 
END 
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FORTRAN  Listing  for  P14-DIST.FOR 


main  program 
P14-DIST.F0R 

calculates  energy  release  from  experimental  results  and  from 
assumed  debonding  of  log-normal  particle  distribution.  Compares 
equivalent  energy  release  from  each  to  find  modification  function 
that  needs  to  be  applied  to  the  log-normal  surface  area 
distribution  to  force  it  to  conform  to  the  measured  results. 

user  enters  the  following  information: 

number  of  points  desired  in  overall  particle  distribution 

number  of  particle  distributions 

avg  radius  and  std  dev  of  each  distribution 

volume  fraction  of  filler  and  voids  of  each  distribution 

sample  volume 

fraction  debond,  YMULT,  w-type,  m-type,  v-type 
matrix  and  filler  shear  modulus 
matrix  and  filler  poisson  ratio 

void  shear  and  bulk  moduli  (if  both  values  zero  model  as  voids, 
if  non-zero,  use  filler  or  pseudo-filler  values) 
adhesion  energy  and  applied  pressure 
a-type,  convergence  tolerance,  max.  iterations 
t  pts  before  debonding,  critical  stress,  debond  angle,  iskip 
coefficients  kO,  ki,  k2  for  fitted  matrix  modulus 
Ym  step.Ym  max  iter.Ym  Xerr, start  index 
Cv  step.Cv  Xerr, start  index 
Fb  step.Fb  max  iter.Fb  aba. err 

Xerr  really  means  fractional  error  and  not  percentage  error. 

information  may  be  entered  using  keyboard  or  by  input  data  file, 
two  options  for  printing  out  intermediate  results  are  available: 
if  values  for  no  pts  desired  in  overall  part.dist.  and  number 
of  particle  distributions  are  negative,  data  files  GAUSS, 
HISTO  and  DEBUG  are  written. 
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C  if  value  for  no.  of  particle  distributions  is  negative  and 

C  value  for  overall  part.dist.  is  positive,  data  file  DEBUG 

C  is  written. 

C  if  input  data  was  entered  using  data  file,  the  data  file  STRESS 
C  will  be  renamed  to  the  input  data  file’s  name. 

C 

C  calculates  particle  size  histogram  with  corresponding  filler 
C  volume  fraction,  uses  Z-decrements  for  particle  size 
C  determination. 

C 

C  based  correction  ratio  VRATIsM_G  on  Cv  instead  of  GCDADC_e  because 
C  in  P14  we  need  to  have  the  proper  amount  of  energy  release  to 

C  obtain  the  experimental  data. 

C 

C  last  revision:  28  OCT  1996  15H30 

C 

C  set  NPTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMP AR , NETVF , NETVV 
REAL  IDENT , K , KCHP , HAG 
INTEGER  GSHX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /GAUS/  Z(GSMX) ,RADIUS(NTDIS , GSMX) ,PR0B(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) ,V0LPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) , NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll (NPTMX) ,C12(NPTMX) ,C21 (NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) ,POISC(NPTMX) 

COMMON  /PROPC/  AK0(1) ,AK1(1) ,AK2(1) ,STRNPi (NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) ,S0RRAD( NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /VERIF/  VSTRN (NPTMX)  .VTSTRS  (NPTMX)  ,VDW(NPTMX)  , 
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*  VNETVV (NPTMX) ,  VGCTOT (NPTMX) , CMBDAT (NPTMX) .VRATI (NPTMX) , 

*  GCTOT (NPTMX) 

CHARACTER  FILNM*8 

C 

C==  initialize  variables  and  arrays  by  BLOCK  DATA  INIT 
C 

CALL  INPUT (ND 1ST , NTOT , VOLSMP , FDBND , YMULT , IKIND , IMQRI , IPOIS , GAMM , 

*  PRESS , FILNM , IWRT , I AUG , STNTOL , ITERMX , NLTOT , STSFUD , DBANG) 

C 

IABORT  =  0 

CALL  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT .IKIND , IMORI , IPOIS , 

*  GAMM , PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD , 

*  STRNP, DBANG, IABORT) 

C 

C==  write  out  debond  only  results  and  debug  data 

IF  (IWRT.GE. 1)  CALL  DBGWRT (NDIST, NPTS, NLTOT, IABORT) 

CALL  DBGRAT (NDIST , NPTS , NLTOT , VOLSMP , GAMM , FILNM , FDBND , 

*  YMULT , IKIND , IMORI , IPOIS , STSFUD , NEXMAX , NCLMAX , IABORT) 

C 

C==  calculate  surface  area  modification  function  to  apply  to  P14  data 
CALL  EURCAL (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , GAMM .PRESS .DILATO , IWRT , IAUG , STNTOL , ITERMX .NLTOT .STSFUD , 

*  STRNP .FILNM , NEXMAX , NCLMAX , IABORT) 

CALL  EURWRT (NDIST , NPTS , NLTOT , VOLSMP , GAMM , FILNM , FDBND , YMULT , IKIND , 

*  IMORI , IPOIS , STSFUD , NEXMAX , IABORT) 

C 

END 

C 

C 

SUBROUTINE  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT .IKIND , IMORI , IPOIS , 

*  GAMM , PRESS .FILNM , IWRT , IAUG .STNTOL , ITERMX .NLTOT , STSFUD , DBANG) 

C====  reads  in  problem  input  either  by  file  or  keyboard,  if  data  entered 
C  through  a  file,  user  inputs  name  only,  a  file  extension  of  DAT  is 
C  assumed,  the  first  line  in  the  input  file  is  used  for  a  user 

C  heading  and  is  not  read  in,  constituent  material  properties 

C  designated  as  follows:  i-inclusion, 2-void  or  vacuole , 3-matrix 
C 
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C  set  NPTMX  =  NTDIS*GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , HAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  «  1000.NTDIS  =  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO ( 1 ) , AK 1 ( 1 ) , AK2 ( 1 ) , STRNP 1 (NPTMX) 

CHARACTER  ANS*1 ,FILNM*8 
C 

WRITE  (6,’(/,A)’)  ’  Read  data  from  file?  (Y/N) ’ 

READ  (5,’(A1)’)  ANS 
C 

IF  (ANS.EQ. *Y’)  THEN 

WRITE  (6,’ (A)’)  ’  File  to  read?  (.INP  will  be  appended)’ 

READ  (5 , ’ (A8) ’ )  FILNM 

OPEN  (UNIT=7 , FILE=FILNM/ / ’ .INP’ ,FORM=’ FORMATTED’ , STATUS= ’ OLD ’ ) 
READ  (7,*) 

READ  (7,*)  NTOT 
READ  (7,*)  NDIST 
DO  10  I  «  1,ABS (NDIST) 

READ  (7,*)  RADAVG(I) 

READ  (7,*)  LOGSTD (I) 

READ  (7,*)  VLFRFO(I)  , VLFRVO (I) 

10  CONTINUE 

READ  (7,*)  VOLSMP 

READ  (7,*)  FDBND , YMULT , IKIND , IMORI , IPOIS 
READ  (7,*)  G(3) ,G(1) 

READ  (7,*)  P0IS(3) ,P0IS(1) 

READ  (7,*)  G(2) ,K(2) 

READ  (7,*)  GAMM, PRESS 
READ  (7,*)  IAUG , STNTOL , ITERMX 
READ  (7,*)  NLTOT , STSFUD , DBANG , ISKIP 
READ  (7,*)  AKO(l) ,AKi(l) ,AK2(1) 

CLOSE  (7) 
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ELSE 

WRITE  (6,’(/,A,I3,A)’) 

*  ’no.  pts  desired  in  stress-strain  curve  (<’,GSMX,’)’ 

READ  (5,*)  NTOT 

WRITE  (6, * (A,Ii,A) ’)  ’  no.  of  particle  distributions  (<=’ , 

*  NTDIS, ’ ) ’ 

READ  (5,*)  NDIST 

DO  20  I  *  i,ABS (NDIST) 

WRITE  (6,’(A,Ii,A)’)  »  for  distribution  no.  ‘,1, 

*  *  mean  radius  (micron) 5 
READ  (5,*)  RADAVG(I) 

WRITE  (6,’ (A)’)  *  log  normal  radius  std  dev* 

READ  (5,*)  LDGSTD(I) 

WRITE  (6,* (A)’)  '  initial  volume  fraction  filler  and  void’ 
READ  (5,*)  VLFRFO(I) ,VLFRV0(I) 

CONTINUE 

WRITE  (6,’ (A)’)  ’  sample  volume  (mm3)’ 

READ  (5,*)  VOLSMP 

WRITE  (6,’ (A)’)  ’  dbnd  frac.rad  dist  mult ,w- type, m-type.v-type* 

READ  (5,*)  FDBND , YMULT , IKIND , IHORI , IPOIS 

WRITE  (6,’ (A)’)  ’  matrix  and  filler  shear  modulus  (Pa)’ 

READ  (S,*)  G(3) ,G(i) 

WRITE  (6,’ (A)’)  *  matrix  and  filler  Poisson  ratio’ 

READ  (5,*)  P0IS(3) ,P0IS(1) 

WRITE  (6 , ’ (A) ’ )  *  void  shear  and  bulk  modulus  (Pa) ’ 

READ  (5,*)  G(2) ,K(2) 

WRITE  (6, ’(A)’)  ’  Gc  (J/m2)  and  applied  pressure  (Pa)’ 

READ  (5,*)  GAMM, PRESS 

WRITE  (6, ’(A)’)  '  a-type,  strain  tolerance,  max.  iterations' 
READ  (5,*)  IAUG , STNTOL , ITERMX 

WRITE  (6, ’(A)’)  *  #pts  before  debond,  crit  strs(Pa),  debond  ang 
* (deg) ,  avg.frc. ’ 

READ  (5,*)  NLTOT , STSFUD , DBANG , ISKIP 

WRITE  (6, ’(A)’)  '  matrix  tensile  modulus  coeffs  k0,kl,k2  (Pa)' 
READ  (5,*)  AK0(1) ,AK1(1) ,AK2(1) 

FILNH  =  ’DEFAULT’ 


END  IF 
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C 

C==  set  write  file  flag,  0=STRWRT,  lsSTRWRT,DBGWRT,HSTWRT,  2=all 
IWRT  =  0 

IF  (NTOT . LT . 0 . AND . NDIST . LT . 0)  IWRT  =  2 
IF  CNTOT.GT.O. AND. NDIST. LT.O)  IWRT  =  1 
NDIST  =  ABS(NDIST) 

NTOT  =  ABS(NTOT) 

IF  (IAUG.EQ.O)  NLT0T=0 
C 

RETURN 

END 

C 

C 

SUBROUTINE  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , GAHM , PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX , NLTOT , 

*  STSFUD , STRNP , DBANG , I ABORT) 

C===~  main  subroutine  which  organizes  particle  size  distribution, 

C  composite  property,  critical  strain  and  stress  and  dilation 

C  calculation  modules,  assume  full  debonding  for  calc,  of  derived 
C  Gc. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCHP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  ^  1) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) ,NETVV(NPTMX) , DAD C( NPTMX) , NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cl 1 (NPTMX) ,C 12 (NPTMX) ,C2i (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AK0(1) ,AK1(1) ,AK2(i) ,STRNP1 (NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) ,S0RRAD( NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

C==  initialize  abort  flag 
I ABORT  =  0 


UNCLASSIFIED 

B35 


C 

0=  create  gaussian  distribution  of  particle  size 

WRITE  (6,’(/,A)’)  ’  Generating  particle  distribution’ 

CALL  GAUSS (NDIST , NTOT , NPTS , I ABORT) 

C==  write  out  gaussian  cumulative  data 

IF  (ABS(IWRT) .GE.2)  CALL  GAUWRT (NDIST, NPTS, IABORT) 

C 

C==  find  size  and  number  of  particles  to  debond 

WRITE  (6,’(/,A)’)  ’  Finding  particle  size  and  number’ 

CALL  PARTS Z (NDIST , NPTS , VOLSMP , IABORT) 

C==  write  out  particle  size  and  number  histogram 

IF  (ABS(IWRT) .GE.2)  CALL  HSTWRT (NDIST, NPTS, IABORT) 

C 

WRITE  (6,’(/,A)’)  ’  Sorting  particle  distributions’ 

CALL  SORTER(NDIST, NPTS, IABORT) 

WRITE  (6, ’(A)’)  ’  Calculating  vol  fractions  and  dA/dc’ 

CALL  VOLFRC (NDIST , NPTS , VOLSMP ,DBANG , IABORT) 

C 

RETURN 

END 

C 

C 

SUBROUTINE  DBGRAT (NDIST , NPTS , NLTOT .VOLSMP , GAMM , FILNM , FDBND , 

*  YMULT , IKIND , IMORI , IPOIS , STSFUD , NEXMAX , NCLMAX , IABORT) 
C“==  write  out  additional  data  for  debugging  purposes 

C  must  divide  DADC  by  IE-3  to  change  units  from  mm  to  m 
C  radius, no. particles .prbsrv  referenced  to  final  state  after 

C  debonding  has  taken  place,  ie.  debonded  r_i  to  get  to  NetVv 

C 

C  set  NPTMX  «  NTDIS*GSMX 
C 

REAL  LOGSTD , NP ARTL , NUMP AR , NETVF , NETW 
REAL  IDENT , K , KCMP , KTMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  ■  1000, NPTMX  -  1000.NTDIS  «  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 
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COMMON  /GAUS/  Z(GSMX) ,RADIUS(NTDIS,GSMX) ,PROB(NTDIS,GSMX) 
COMMON  /DEBUG/  NUMPAR(NTDIS.GSMX) ,VOLPAR(NTDIS,GSMX) , 

*  NETVF (NPTMX) ,NETVV(NPTMX) ,D ADC (NPTMX) .NPARTL(NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO(l) ,AKi(i) ,AK2(1) .STRNPi (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) , SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST(NPTMX) 

COMMON  /VERIF/  VSTRN( NPTMX) .VTSTRS (NPTMX) ,VDW (NPTMX) , 

*  VNETVV (NPTMX) , VGCTOT( NPTMX ) .CMBDAT (NPTMX) ,VRATI (NPTMX) , 

*  GCTOT (NPTMX) 

CHARACTER  FILNM*5 

C 

IF  (IABORT.EQ.l)  RETURN 
C 

C  read  P15  R-data,  use  DILAT  array  to  temporarily  hold  dCv  data 
IDUM  =  1 

OPEN  (UNIT=7 , FILE=FILNM/ / ’ R . DAT ’ , STATUS® 1  UNKNOWN 5 ) 

READ  (7,*) 

READ  (7,*) 

READ  (7,*) 

READ  (7,*) 

READ  (7,*) 

READ  (7,*) 

READ  (7,*) 

DO  10  I  =  i, NPTMX 

READ  (7,*,END=20)  VSTRN (IDUM) .VTSTRS (IDUM) ,A, 

*  VDVV(IDUM) , A, VNETVV (IDUM) , A, DILAT (IDUM) .VGCTOT(IDUM) 

IF  (VNETVV (IDUM) .GT.O)  IDUM  =  IDUM+i 

10  CONTINUE 
20  CONTINUE 

NEXMAX  =  IDUM-1 
CLOSE  (7) 

C 

DMAX  =  FMAX (DILAT, NEXMAX) 

DMIN  =  FMIN (DILAT, NEXMAX) 

CALL  MOMENT (DILAT , NEXMAX , AVE , ADEV , SDEV , VAR , SKEW , CURT) 
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WRITE(6, * (/,A,I3f A,A5,A) ’)  »  Rows : » , NEXMAX , »  Stats  for  * ,FILNM, 

*  * R . DAT ’ 

WRITE (6, 5700) 

WRITE  (6,5800)  AVE , SDEV , VAR , DMAX , DHIN 
C 

WRITE  (6,’(/,A,A5,A)’)  ’  Writing  to  ’ ,FILNM, ’C.DAT’ 

C 

OPEN  (UNIT=7 , FILE=FILNM/ / ’ C . DAT  * , STATUS®  * UNKNOWN ’ ) 

WRITE  (7,5000) 

DO  40  I  =  i.NDIST 

WRITE  (7,»(1X,I1,4(3X,0PE11.4))»)  I.RADAVG(I) ,LOGSTD(I) , 

*  VLFRFO(I) ,VLFRVO(I) 

40  CONTINUE 

C 

NCLMAX  =  0 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,POIS(i) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IMORI,IPOIS 
WRITE  (7,5300)  PRESS, GAMM, DILATO ,STSFUD 
WRITE (7, 5600)  AKO(l) ,AK1(1) ,AK2(1) 

WRITE  (7,5400) 

IDIST  =  1 
GCTOT(l)  =  0 

DO  50  IHST  =  2 ,NDIST*NPTS+1 

IF (NETVV (IHST) . GT . VNETVV (NEXMAX) )  GOTO  30 
NCLMAX  =  NCLMAX+1 

DNETF  =  ABS (NETVF ( IHST) -NETVF (IHST-1 ) ) 

DILAT(IHST-l)  =  DNETF 

GCDADC  ■  -2 .0*GAMM*DADC(IHST)/(V0LSMP*iE-3) 

GCTOT(IHST)  «  GCTOT (IHST- 1 ) +GCDADC/1E6 

WRITE  (7,5500)  NETW(IHST)  , DNETF, GCDADC/ 1E6 .GCTOT(IHST)  , 

*  S0RRAD( IHST-1) .SORPAR(IHST-l) .PRBSRV(IHST) 

60  CONTINUE 

30  CONTINUE 
C 

CLOSE  (7) 

C 


DMAX  =  FMAX(DILAT, NCLMAX) 
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DMIN  =  FMIN (DILAT , NCLMAX) 

CALL  MOMENT (DILAT, NCLMAX , AVE , ADEV , SDEV , VAE , SKEW , CURT) 

WRITE(6, * (/,A,I3,A,A5,A) ’)  »  Rows :» .NCLMAX, »  Stats  for  », 

*  FILNM, ’C.DAT’ 

WRITE (6, 5700) 

WRITE  (6,5800)  AVE , SDEV , VAR , DMAX , DMIN 
C 

WRITE(6, * (/,A,1PE11.4,A,E9.2,A) *)  ’  Derived  Gc.calc  , 

*  VGCTOT (NEXMAX) /GCTOT ( IHST- 1) , »  at> , (NETVF(l)-VNETVV(NEXMAX))/ 

*  NETVF(i),’  frac.rem.Ci’ 

C 

RETURN 

5000  FORMAT  (’  #  avg  Rad(um)  std  dev  Vf  Vv’) 

5100  FORMAT  (»  Gm(Pa)=’ .0PE11.4, ’  Gf (Pa)=’ .0PE11.4, ’  vm=’ ,0PE11 .4, 

*  '  vf=’ .0PE11.4,’  Gv(Pa)s> ,0PE11 .4, ’  Kv=’ ,0PE11 .4) 

5200  FORMAT  (’  V(mm3)  *',0PE11.4,»  frac  dbnd=’ ,0PE11 .4, ’  Y-mult=' ,0PE11 

*  .4,’  w-type=’ ,13, ’  m-type=’ ,13, *  v-type=’,I3) 

5300  FORMAT  (»  PO(Pa)=’ ,0PE11 .4, *  Gc(Pa-m)=’ ,0PE11 .4, ’  (dV/V)0=» ,0PE11 

*  .4,  ’  crit .strs(Pa)=’ ,0PE11 .4) 

5400  FORMAT  (’  NetVv  dC  GCDADC (MPa)  CumGCDA(MPa)  ra 

*d(mm)  No. Part.  Prlsurv’) 

5500  FORMAT  (1X,7(1PE11 .4,2X) ) 

5600  FORMAT  (’  AK0(Pa)=’ ,0PE11 .4, ’  AKl(Pa)=’ ,0PE11 .4, *  AK2(Pa)=J, 

*  0PE11.4) 

5700  FORMAT  (’  avg  dCv  sdev  var  max  min 

*’) 

5800  FORMAT  (IX, 1P5E12.4) 

END 

C 

C 

SUBROUTINE  EURCAL (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , GAMM , PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD , 

*  STRNP , FILNM , NEXMAX , NCLMAX , IABORT) 

C====  calculates  the  modification  function  that  needs  to  be  applied  to 
C  the  P14  log-normal  particle  surface  area  distribution  to  get  the 
C  experimentally  determined  energy  release,  the  function  is  based  on 
C  the  ratio  of  SGAD_exp/SGAD_cal . 
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REAL  LOGSTD , NPARTL , NUMPAR , NETVF , HETVV 
REAL  IDENT ,  K ,  KCMP ,  MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000,NTDIS  =  l.PRERR  =  0.02) 
COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) ,VOLPAR(NTDIS .GSMX) , 

*  NETVF (NPTMX) ,NETVV( NPTMX) ,DADC (NPTMX) , NPARTL (NTDIS) 

COMMON  /VERIF/  VSTRN(NPTMX) ,VTSTRS( NPTMX) ,VDW (NPTMX) , 

*  VNETVV (NPTMX) ,VGCTOT( NPTMX) ,CMBD AT (NPTMX) ,VRATI (NPTMX) , 

*  GCTOT (NPTMX) 

CHARACTER  FILNM+5 

C 

C**  combine  P15  and  log-normal  distribution  data  based  on  VNETVV 
C 

JSTRT  =  1 

IDUM  =  0 

IERCNT  =  0 

DO  70  J  ■  l.NEXMAX 

DO  50  JDUM  =  JSTRT, NCLMAX 

IF  (NETVV( JDUM). GT. VNETVV (J))  THEN 

ADIFF  =  ABS ( (NETW (JDUM) -VNETVV ( J) ) ) /VNETVV( J ) 

BDIFF  =  ABS ( (NETW (JDUM- 1 ) -VNETVV ( J) ) ) /VNETVV ( J) 

IF  (ADIFF.LT. BDIFF)  THEN 
IDUM  ■  IDUM+i 

CMBDAT(IDUM)  =  GCTOT(JDUM) 

JSTRT  -  JDUM 

IF  ( ADIFF. GT.PRERR)  IERCNT  =  IERCNT+1 
GOTO  60 
ELSE 

IDUM  *  IDUM+1 

CMBDAT(IDUM)  ■  GCTOT ( JDUM- 1) 

JSTRT  «  JDUM-1 

IF  (BDIFF. GT.PRERR)  IERCNT  «  IERCNT+1 
GOTO  60 
END  IF 
ELSE 
END  IF 
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BO  CONTINUE 
60  CONTINUE 
70  CONTINUE 

NEXMAX  =  IDUM 
C 

WRITE  (6,’(/,A,E11.4,A,I4)’)  »  SBR  EURCAL:  Total  iterations  over’, 

*  PRERR , 5  is ’ ,IERCNT 
C 

DO  80  J  ■  1, NEXMAX 
VRATI(J)  =  0 

IF(CMBDATCJ).NE.O)  VRATI(J)  =  VGCTOT(J)/CMBDAT(J) 

80  CONTINUE 
C 

DMAX  =  FMAXCVRATI, NEXMAX) 

DMIN  =  FMIHCVRATI, NEXMAX) 

CALL  MOMENT (VRATI , NEXMAX , AVE , ADEV , SDEV , VAR , SKEW , CURT) 

WRITE  (6,5000) 

WRITE  (6,5100)  AVE, SDEV, VAR, DMAX, DMIN 
C 

RETURN 

5000  FORMAT  ( 

*  ’  avg  SG_rat  sdev  var  max  min’) 

5100  FORMAT  (IX, 1P5E12.4) 

END 

C 

C 

SUBROUTINE  EURWRT (NDIST , NPTS , NLTOT , VOLSMP , GAMM , FILNM , FDBND , YMULT , 

*  IKIND , IMORI , IPOIS , STSFUD , NEXMAX , I ABORT) 

C====  write  out  data 

C 

C  set  NPTMX  =  NTDIS+GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , KTMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 
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*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) ,STRNP1(NPTMX) 

COMMON  /VERIF/  VSTRN(NPTMX)  .VTSTRS (NPTMX)  ,VDW  (NPTMX)  , 

*  VNETVV (NPTMX) ,VGCTOT( NPTMX) ,CMBD AT (NPTMX) .VRATI (NPTMX) , 

*  GCTOT (NPTMX) 

CHARACTER  FILNM*5 

C 

IF  (IABORT.EQ. 1)  RETURN 

WRITE  (6,’(/,A,A5,A)’)  ’  Writing  to  ’  ,FILNM,  ’E.DAT’ 

C 

OPEN  (UNIT=7 , FILE=FILNM/ /  ’  E . DAT  * ,STATUS=’ UNKNOWN’) 

WRITE  (7,5000) 

DO  10  I  =  l.NDIST 

WRITE  (7 , ’ (1X,I1 ,4(3X,0PE11 .4)) ’ )  I .RADAVG(I) .LOGSTD(I) , 

*  VLFRFO (I) , VLFRVO ( I ) 

10  CONTINUE 

C 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IMORI,IPOIS 
WRITE  (7,5300)  PRESS, GAMM.DILATO.STSFUD 
WRITE  (7,5600)  AKO(l) ,AK1(1) ,AK2(1) 

WRITE  (7,5400) 

DO  20  I  =  1 , NEXMAX 

WRITE  (7,5500)  VSTRN(I) ,VNETVV(I) ,VGCTOT(I) ,CMBDAT(I) , 

*  VRATI(I) ,VTSTRS(I) ,VDVV(I) 

20  CONTINUE 

C 

CLOSE  (7) 

C 

RETURN 

5000  FORMAT  (’  #  avg  Rad (urn)  std  dev  Vf  Vv’) 

5100  FORMAT  (’  Gm(Pa)*’ .OPEll .4, ’  Gf (Pa)*» .OPEll .4, ’  vm«» .0PE11.4, 

*  ’  vf=’ .OPEll. 4,’  Gv(Pa)** , OPEll .4, ’  Kv«’ .OPEll .4) 

5200  FORMAT  (’  V(mm3)  =’ , OPEll. 4,  ’  frac  dbnd*’  .OPEll. 4,’  Y-mulf’  ,0PE11 

*  .4 , *  v-type= ’ , 13 , ’  m-type® ’ , 13 , ’  v-type= ’ , 13) 

5300  FORMAT  (’  PO(Pa)=’ , OPEll .4, ’  Gc(Pa-m)=’ .OPEll .4, ’  (dV/V)0=’ .OPEll 
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*  .4,’  crit .strs(Pa)=’ ,0PE11 .4) 

5400  FORMAT  (»  strn.e  Cv_exp  SGAD_e(MPa)  SGAD.c(MPa)  SG 

♦Ratio  TStse(MPa)  dV/V_e’) 

6500  FORMAT  (iX,7(lPEii .4,2X)) 

5600  FORMAT  (’  AKO(Pa)=’ ,0PE11 .4, »  AKl(Pa)=’ ,0PEli.4, ’  AK2(Pa)=» ,0PEU 

♦  .4) 

END 

C 

C 

SUBROUTINE  GAUSS (NDIST , NTOT , NPTS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

FUNCTION  FUNC(X) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  PARTSZ (NDIST , NPTS .VOLSMP , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  SORTER (NDIST , NPTS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  VOLFRC (NDIST , NPTS , VOLSMP , DBANG , IABORT) 

C==e=  calculates  dA/dc,  net  Vf,  net  Vv  and  probility  of  survival  for 
C  given  particle  radius.  Note:  net  Vf  is  based  on  total  sample  vol. 

C  Prob  of  surv  is  based  on  numbers  of  particles. 

C 
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C  set  NPTHX  =  NTDIS*GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  ■  1000.NTDIS  =  1) 

PARAMETER  (PI  =  3.1415927) 

COMMON  /DEBUG/  NUMPAR(NTDIS .GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) . NPARTL (NTD IS) 
COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

C==  calculate  total  volume  fraction  filler  and  void 
NETVF(l)  =  0 
NETVV (1)  =  0 
DO  10  I  -  l.NDIST 

NETVF (1)  *  NETVF ( 1 ) +VLFRFO ( I ) 

NETVV (1)  =  NETVV ( 1 ) +VLFRVO ( I ) 

10  CONTINUE 

PRBSRV ( 1 )  =1.0 
C 

C==  calculate  net  Vf  and  Vv,  dA/dc  and  Prob  surv. 

C 

SRVNUM  ■  0 
C 

C=*  find  total  number  of  particles 
DO  20  ICNT  *  l.NDIST 

TLNUMP  *  TLNUMP+NPARTL (ICNT) 

20  CONTINUE 
C 

DO  30  JCNT  =  2 , NDIST*NPTS+ 1 

NETVF (JCNT)  =  NETVF ( JCNT- 1) -SORVLP ( JCNT- D/VOLSMP 
NETVV (JCNT)  =  NETVV ( JCNT- 1)+S0RVLP( JCNT- D/VOLSMP 
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SRVNUM  =  SRVNUM+S0RPAR(JCNT-1) 

PRBSRV(JCNT)  ■  (TLNUMP-SRVNUM) /TLNUMP 

DADC(JCNT)  =  -6 . 0* ( i-SIN (DBANG*3 .14159/ 180) ) +VOLSMP/ 

*  SORRAD ( J CNT- 1 ) 

30  CONTINUE 

C 

RETURN 

END 

C 

C 

BLOCK  DATA  INIT 

C====  initialize  all  variables  and  arrays  used  in  program 
C  check  NPTMX  if  NTDIS  or  GSMX  are  changed. 

C  NPTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000, NTDIS  *  1) 

COMMON  /GAUS/  Z(GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 
COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) , NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO ( 1 ) , AK 1 ( 1 ) , AK2 ( 1 ) , STRNP1 (NPTMX ) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV(NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /VERIF/  VSTRN (NPTMX) .VTSTRS (NPTMX) ,VDW (NPTMX) , 

*  VNETVV (NPTMX) ,VGCTOT( NPTMX) ,CMBD AT (NPTMX) .VRATI (NPTMX) , 

*  GCTOT( NPTMX) 

C 
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DATA  Z  /GSMX+O/  RADIUS  /NPTMX*0/  PROB  /NPTMX+O/ 

DATA  NUMPAR  /NPTMX*0/  VOLPAR  /NPTMX+O/  NETVF  /NPTMX*0/  NETVV  / 

*  NPTMX*0/  DADC  /NPTMX*0/  NPARTL  /NTDIS+O/ 

DATA  RADAVG  /NTDIS*0/  LOGSTD  /NTDIS*0/  VLFRFO  /NTDIS+O/  VLFRVO  / 

*  NTDIS*0/ 

DATA  BETA  /2*0/  WI  /9*0/  WV  /9*0/  IDENT  /l, 0,0, 0,1, 0,0, 0,1/ 

DATA  S  /9*0/  CA  /9*0/  CB  /9*0/  CE  /9*0/  CF  /9*0/ 

DATA  K  /3*0/  G  /3*0/  E  /3*0/  POIS  /3*0/  Cl  /9*0/  CV  /9*0/  CO  /9*0/ 
DATA  Cll  /NPTMX+O/  C12  /NPTMX*0/  C21  /NPTMX*0/  C22  /NPTMX*0/  C23  / 

*  NPTMX*0/  ECMP  /NPTMX*0/  POISC  /NPTMX*0/ 

DATA  AKO  /1*0/  AK1  /1*0/  AK2  /1*0/  STRNP1  /NPTMX*0/ 

DATA  CRTSTN  /NPTMX*0/  STRESS  /NPTMX*0/  DILAT  /NPTMX*0/  PRBSRV  / 

*  NPTMX*0/  SORRAD  /NPTMX*0/  SORPAR  /NPTMX+O/  SORVLP  /NPTMX+O/ 

*  IPDIST  /NPTMX+O/ 

DATA  VSTRN  /NPTMX*0/  VTSTRS  /NPTMX*0/  VDVV  /NPTMX*0/ 

*  VNETVV  /NPTMX*0/  VGCTOT  /NPTMX*0/  CMBDAT  /NPTHX*0/ 

*  VRATI  /NPTMX*0/  GCTOT  /NPTHX+O/ 

C 

END 

C 

C 

SUBROUTINE  qSIMP(FUNC,A,B,S) 

(subroutine  details  may  be  found  in  Appendix  E) 

END 

C 

C 

SUBROUTINE  TRAPZD(FUNC,A,B,S,N) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  S0RT3(N,RA,RB,RC,IRD) 

(subroutine  details  may  be  found  in  Appendix  E) 

END 

C 

C 
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SUBROUTINE  GAUWRT (NDIST , NPTS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
END 
C 
C 

SUBROUTINE  HSTWRT (NDIST , NPTS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
END 
C 
C 

SUBROUTINE  DBGWRT (NDIST , NPTS ,NLTOT , IABORT) 
(subroutine  details  may  be  found  in  Appendix  E) 
END 
C 
C 

C****  function  for  finding  maximum  value 
FUNCTION  FMAX(DATA.N) 

DIMENSION  DATA(N) 

BIG  =  -1.0E10 
C 

DO  10  I  =  1,N 

BIG  =  AMAX1(DATA(I) ,BIG) 

10  CONTINUE 
FMAX  =  BIG 
C 

RETURN 

END 

C 

C 

C****  function  for  finding  minimum  value 
FUNCTION  FMIN(DATA.N) 

DIMENSION  DATA(N) 

SMALL  =  1.0E10 
C 

DO  10  I  =  i,N 

SMALL  =  AMINKDATA(I)  .SMALL) 


10  CONTINUE 
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FHIN  =  SMALL 
C 

RETURN 

END 

C 

C 

O***  variable  identification 
C  DATA  :  array  of  DATA  of  length  N 

C  AVE  :  average 

C  ADEV  :  average  deviation  or  mean  absolute  deviation 
C  SDEV  :  standard  deviation 

C  VAR  :  variance 

C  SKEW  :  skewness 

C  CURT  :  kurtosis 

C 

SUBROUTINE  MOMENT (DATA , N , AVE , ADEV , SDEV , VAR , SKEW , CURT) 

DIMENSION  DATA(N) 

IF  (N.LE.i)  PAUSE  *N  must  be  at  least  2’ 

S  a  0. 

DO  10  J  s  1,N 
S  =  S+DATACJ) 

10  CONTINUE 

AVE  =  S/N 

ADEV  =  0. 

VAR  =  0. 

SKEW  =  0. 

CURT  =  0. 

DO  20  J  -  1,1 

S  ■  DATA (J) -AVE 
ADEV  •  ADEV+ABS(S) 

P  «  S*S 
VAR  «  VAR+P 
P  «  P*S 
SKEW  «  SKEW+P 
P  *  P*S 
CURT  =  CURT+P 


20  CONTINUE 
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ADEV  =  ADEV/N 
VAR  *  VAR/CN-1) 

SDEV  =  SQRT(VAR) 

IF  (VAR.NE.O . )  THEN 

SKEW  =  SKEW/ (N*SDEV**3) 

CURT  =  CURT/ (N*VAR**2) -3 . 

ELSE 

PAUSE  ’no  skew  or  kurtosis  when  zero  variance’ 
ENDIF 
RETURN 
END 
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APPENDIX  C 

RESULTS  OF  GLASS  BEAD/HTPB  ANALYSES 


The  following  graphs  show  the  predictions  of  true  stress-strain  and  dilatation-strain  behavior 
using  the  back-calculated  model  parameters.  Graphs  of  cumulative  strain  energy  released 
and  incremental  vacuole  concentration  versus  vacuole  fraction  have  been  given  to  show  how 
dependent  the  predictions  are  to  the  particle  debonding  phenomenon.  The  data  from  all 
particulate  composites  tested  in  the  experimental  portion  of  the  study  are  shown  here. 
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FIGURE  Cl  -  True  stress  and  dilatation  behavior  for  composite  T3FS 
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FIGURE  C2  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T3FS 
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FIGURE  C3  -  True  stress  and  dilatation  behavior  for  composite  T3FL 
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FIGURE  C4 


Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T3FL 
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FIGURE  C7  -  True  stress  and  dilatation  behavior  for  composite  T5FL 
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FIGURE  C8  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T5FL 
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FIGURE  Cll  -  True  stress  and  dilatation  behavior  for  composite  N3FL 


FIGURE  C12  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  N3FL 
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FIGURE  C13  -  True  stress  and  dilatation  behavior  for  composite  N5FS 
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FIGURE  C14  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  N5FS 
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FIGURE  C17  -  True  stress  and  dilatation  behavior  for  composite  T3MS 
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FIGURE  C18  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T3MS 
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FIGURE  C19  -  True  stress  and  dilatation  behavior  for  composite  T3ML 
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FIGURE  C20  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T3ML 
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FIGURE  C21  -  True  stress  and  dilatation  behavior  for  composite  T5MS 


FIGURE  C22  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T5MS 
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FIGURE  C23  -  True  stress  and  dilatation  behavior  for  composite  T5ML 
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FIGURE  C24  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  T5ML 
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FIGURE  C27  -  True  stress  and  dilatation  behavior  for  composite  N3ML 


FIGURE  C28  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  N3ML 
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FIGURE  C31  -  True  stress  and  dilatation  behavior  for  composite  N5ML 
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FIGURE  C32  -  Calculated  strain  energy  and  incremental  vacuole  concentration  be¬ 
havior  for  composite  N5ML 
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APPENDIX  D 

FORTRAN  PROGRAM  FOR  SENSITIVITY  ANALYSIS 


Sample  ’-14’  Input  File 


ct3fl,  part  intact,  vacuole 
220 
1 

65.0 

0.0374 

0.311,0.0 

4609 

2. IE-4, 1.69,0, 1,0 
0 . 4363E6 , 30E9 
0.495,0.16 
30E9.34. 12E9 
5.720,0 
2, IE-3,20 
10,0. 5E6 ,0.0,2 

1 . 522255E6 , -0 . 460286E6 , 0 . 270236E6 
0.1,1,0.008,4  (NOT  USED) 

0.0001,0.005,1  (NOT  USED) 

0.1E-4,1,0.001  (NOT  USED) 


!  information  header 
!  no.  pts.  in  curve 
!  no.  distributions 
!  avg.  particle  radius  (micron) 

!  log  std.  dev. 

!  inclusion  and  void  fraction 
!  sample  volume  (mm3) 

!  Fb,Ym,w-type,m-type,v-type 
!  matrix  and  inclusion  shear  modulus  (Pa) 

!  matrix  and  inclusion  Poisson  ratio 
!  matrix  and  inclusion  bulk  modulus  (Pa) 

!  Gc,  pressure 

!  a-type,  conv.  tol.,  max.  iterations 
! no. steps  init. , crit.strs.dbnd  angle , avg . fac . 
!  nonlinear  co-effs  in  Young’s  modulus  (Pa) 
!  Ym  8tep,Ym  max  iter.Ym  '/.err, start  index 
!  Cv  step,Cv  '/.err, start  index 
!  Fb  step ,Fb  max  iter.Fb  abs.err 
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Sample  ’-s’  Input  File 


ct3ml 

1,0.3995,1.188,0.02298 


-0.25 

-0.25 

-0.20 

-0.20 

-0.15 

-0.15 

o 

H 

o 

1 

-0.10 

-0.05 

-0.05 

0.05 

0.05 

0.10 

0.10 

0.15 

0.15 

0.20 

0.20 

0.25 

0.25 

!  information  header 

!  analysis  type, target  strain, stress, dilatation 
!  Ym  range,  Fb  range 

I  tl  II 
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FORTRAN  Listing  for  P14S.FOR 


C====  main  program 
C  P14S.F0R 

C  used  to  carry  out  sensitivity  analysis  of  Ym  and  Fb  or  crit  strs 

C  and  Gc.  based  on  P14  with  additions  to  cycle  through  various  Ym 

C  and  Fb.  took  out  various  P14  subroutines  that  are  not  needed  for 
C  this  kind  of  analysis. 

C  program  reads  “-14"  file  for  optimal  Ym  and  Fb  or  crit  strs  and  Gc 

C  values  as  well  as  values  of  properties  etc.  also  needs  to  read  an 

C  "-s"  file  that  specifies  the  strain  level  for  results  and  range  of 

C  Ym  and  Fb  or  crit  strs  and  Gc  to  be  examined,  the  "-s"  file  must 

C  have  the  following  format: 

C  information  header 

C  type,  target  strain,  true  stress,  dilatation 

C  column  of  ranges  for  Ym  and  Fb  (up  to  10) 

C 

C  type  1  -  Ym  and  Fb,  2  -  crit  strs  and  Gc 
C 

C  last  revision:  11  NOV  1996  11H15 

C 

C  set  NPTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSHX, NPTMX 

PARAMETER  (GSMX  -  1000, NPTMX  *  1000.NTDIS  ■  l.NSMAX  «  10) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS,GSHX) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV(NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG (NTDIS) .LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPS/  Cii(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 
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*  C23 (NPTMX) ,ECMP (NPTMX) .POISC (NPTMX) 

COMMON  /PROPC/  AKO(i) ,AK1(1) ,AK2(1) ,STRNP1(NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV(NPTMX) .SORRAD (NPTMX) , SORPAR(NPTMX) .SORVLP(NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /SENS/  YMRANG(NSMAX) .FBRANG(NSMAX) ,STRLIM(5) , 

*  STRDAT (NSMAX , NSMAX) , DILDAT (NSMAX , NSMAX) 

CHARACTER  FILNM*5 

C 

C==  initialize  variables  and  arrays  by  BLOCK  DATA  INIT 
C 

CALL  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT , IKIND , IMORI , IPOIS , GAMM , 

*  PRESS , FILNM , IWRT , I AUG , STNTOL , ITERMX , NLTOT , STSFUD , DBANG , ISKIP ) 
C 

IABORT  =  0 

C==  cycle  through  range  of  Ym  (X)  and  Fb  (Y) 

YMOPT  =  YMULT 
FBOPT  =  FDBND 
STSOPT  =  STSFUD 
GCOPT  =  GAMM 
ITYP  =  INT(STRLIM(S) ) 

DO  20  ISEN  =  1 , INT (STRLIM(2) ) 

IF  (ITYP.Eq.l)  THEN 

YMULT  =  YMRANG(ISEN) *YMOPT+YMOPT 
ELSE 

STSFUD  =  YMRANG (ISEN ) *STSOPT+STSOPT 
ENDIF 

DO  10  JSEN  =  1 , INT (STRLIM(2) ) 

IF  (ITYP .EQ . 1)  THEN 

FDBND  =  FBRANG(JSEN)*FBOPT+FBOPT 

WRITE  (6,’ (A, Ell. 4, A, Ell. 4)’)  »  Ym  =  », YMULT,’  Fb  -  » , 

*  FDBND 
ELSE 

GAMM  =  FBRANG ( J SEN ) +GCOPT+GCOPT 

WRITE  (6,’ (A, Ell. 4, A, Ell. 4)’)  ’  crit.strs  =  », STSFUD, 

*  >  Gc  =  * , GAMM 


ENDIF 
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C 

CALL  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IHORI , 

*  IPOIS , GAMM , PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX , NLTOT , 

*  STSFUD , STRNP , DBANG , ISKIP , ISEN , JSEN , IABORT) 

C 

10  CONTINUE 
20  CONTINUE 

YMULT  «  YMOPT 
FDBND  =  FBOPT 
STSFUD  =  STSOPT 
GAMM  m  GCOPT 
C 

C==  write  out  data 

CALL  STRWRT (NDIST , NPTS .VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , IABORT) 

C 

END 

C 

C 

SUBROUTINE  INPUT (ND 1ST , NTOT , VOLSMP , FDBND , YMULT .IKIND , IMORI .IPOIS , 

*  GAMM , PRESS . FILNM , IWRT . I AUG , STNTOL , ITERMX , NLTOT , STSFUD , DBANG . 

*  ISKIP) 

C====  reads  in  problem  input  either  by  file  or  keyboard,  if  data  entered 
C  through  a  file,  user  inputs  name  only,  a  file  extension  of  DAT  is 
C  assumed,  the  first  line  in  the  input  file  is  used  for  a  user 

C  heading  and  is  not  read  in,  constituent  material  properties 

C  designated  as  follows:  1 - inclusion, 2-vo id  or  vacuole, 3-matrix 
C  STRNLM  (l)*strain  of  interest  (2)*no.of  ranges  (3) “expt .stress 
C  (4)*expt . dilat 

C 

C  set  NPTMX  «  NTDIS+GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETW 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  *  1000.NTDIS  =  l.NSMAX  =  10) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD(NTDIS) .VLFRFO(NTDIS) , 
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*  VLFRVO(NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(i) ,STRNP1(NPTMX) 

COMMON  /SENS/  YMRANG(NSMAX) .FBRANG(NSMAX) ,STRLIM(5) , 

*  STRDATCNSMAX , NSMAX) , DILDAT (NSMAX ,NSMAX) 

CHARACTER  ANS*1 ,FILNM*5 

WRITE  (6,’ (A)’)  ’  File  to  read?  (-14. INP  will  be  appended)’ 

READ  (5, ’ (A5) ’ )  FILNM 

WRITE  (6,’(/,A,A5,A)’)  ’  Reading  ’ , FILNM, ’-14. INP’ 

OPEN  (UNIT=7 , FILE=FILNM// ’  -14 . INP  * ,FORMs ’ FORMATTED  ’ , STATUS3 ’ OLD ’ ) 
READ  (7,*) 

READ  (7,*)  NTOT 
READ  (7,*)  NDIST 
DO  10  I  =  l.ABS (NDIST) 

READ  (7,*)  RADAVG(I) 

READ  (7,*)  LOGSTD(I) 

READ  (7,*)  VLFRFO(I) ,VLFRVO(I) 

10  CONTINUE 

READ  (7,*)  VOLSMP 

READ  (7,*)  FDBND , YMULT , IKIND , IMORI , IPOIS 
READ  (7,*)  G(3) ,G(1) 

READ  (7,*)  P0IS(3),P0IS(1) 

READ  (7,*)  G(2) ,K(2) 

READ  (7,*)  GAMM, PRESS 
READ  (7,*)  IAUG , STNTOL , ITERMX 
READ  (7,*)  NLTOT , STSFUD , DBANG , ISKIP 
READ  (7,*)  AKO(l) ,AK1(1) ,AK2(1) 

CLOSE  (7) 

WRITE  (6,’(A,A5,A)’)  ’  Reading  » .FILNM, ’-S. INP’ 

ICNT  =  0 

OPEN  (UNIT-7, FILE=FILNM//’-S. INP’ .FORM3’ FORMATTED’ , STATUS3’ OLD ’ ) 
READ  (7,*) 

READ  (7,*)  STRLIM(5) ,STRLIM(1) ,STRLIM(3) ,STRLIM(4) 

DO  20  I  -  1, NSMAX 

READ  (7,*,END=30)  YMRANG(I) .FBRANG(I) 
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ICNT  =  ICNT+1 
20  CONTINUE 
30  CONTINUE 

STRLIMC2)  =  REAL (ICNT) 

C 

C~=  sat  write  file  flag,  0=STRWRT,  1=STRWRT , DBGHRT , HSTWRT ,  2=all 
IWRT  *  0 

NDIST  =  ABS(NDIST) 

NTOT  =  ABS(NTOT) 

IF  (IAUG.EQ.O)  NLTOT  =  0 
C 

RETURN 

END 

C 

C 

SUBROUTINE  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , GAMM , PRESS , DILATO , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD , 

*  STRNP , DBANG , ISKIP , ISEN , JSEN , I ABORT) 

C====  main  subroutine  which  organizes  particle  size  distribution, 

C  composite  property,  critical  Btrain  and  true  stress  and  dilation 
C  calculation  modules. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  *  1000.NTDIS  =  1, NSMAX  =  10) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX)  .NETW(NPTMX)  ,DADC (NPTMX)  , NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB /  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC (NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) , STRNP 1( NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) ,DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /SENS/  YMRANG(NSMAX) .FBRANG(NSMAX) ,STRLIH(5) , 

*  STRDAT (NSMAX , NSMAX) , DILDAT (NSMAX , NSMAX) 
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C 

C==  initialize  abort  flag 
I ABORT  =  0 
C 

C  IF(IWRT.EQ.O)  THEN 

C  WRITE  (6,’(/,A)’)  *  Generating  particle  distribution’ 

CALL  GAUSS (NDIST , NTOT , NPTS , I ABORT) 

C  WRITE  (6, ’(A)’)  ’  Finding  particle  size  and  number’ 

CALL  PARTSZ (NDIST, NPTS, VOLSMP , IABORT) 

C  WRITE  (6, ’(A)’)  ’  Sorting  particle  distributions’ 

CALL  SORTER (NDIST, NPTS, I ABORT) 

C  WRITE  (6, ’(A)’)  ’  Calculating  vol  frac  and  dA/dc’ 

CALL  VOLFRC (NDIST, NPTS , VOLSMP , DBANG , IABORT ) 

C  IWRT=1 

C  ENDIF 

C 

WRITE  (6, ’(A)’)  ’  Generating  true  stress-strain  curve’ 

C==  calculate  initial  composite  properties 
ICNT  =  1 

CONCI  =  NETVF(ICNT) 

CONCV  =  NETVV(ICNT) 

STRNO  =  0 

CALL  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , IPOIS , STRNO , 

*  IAUG, IABORT) 

C 

CALL  NLSTRS (NDIST , NPTS , FDBND , YMULT , IKIND , IMORI , IPOIS , IAUG, STNTOL , 

*  ITERMX , NLTOT , STSFUD , STRNP , DILATO , IABORT) 

C 

C==  main  routine  for  debonding  and  true  stress-strain  calculation. 

C  offset  pointer  ICNT  by  i  to  make  room  for  undebonded  state. 

C  STRNP  in  NLSTRS  is  matrix  strain  at  end  of  initial  portion. 

C  matrix  strain  revised  if  e_i  >  e_max,  if  it  is  not  STRNP 

C  maintained  at  current  e_max.  IPDIST  used  as  a  flag  to  show  when 

C  STRNP  has  been  updated. 

C 

CRTMAX  =  CRTSTN(NLT0T+1) 

DO  10  ICNT  =  2+NLT0T,NDIST*NPTS+NLT0T+l 
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CONCI  =  NETVF(ICNT) 

CONCV  =  NETVV(ICNT) 

C 

CALL  MTPRP ( CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  STRNP , IAUG , IABORT) 

CALL  CRIT ( ICNT , NLTOT , I AUG , VOLSMP , GAMM , PRESS , CRTMAX , STRNP , ISKIP , 

*  IABORT) 

STRNP 1 (ICNT)  =  STRNP 

CALL  CALVAL (ICNT , PRESS , DILATO , IABORT) 

C 

C  store  sensitivity  info  in  matrices 

IF  (CRTSTN(ICNT) .GE.0.97*STRLIM(i))  THEN 
STRDAT(ISEN.JSEN)  =  STRESS(ICNT) 

D I LD AT ( I SEN , J SEN )  =  DILAT(ICNT) 

RETURN 
END  IF 
C 

10  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  GAUSS (NDIST , NTOT , NPTS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

FUNCTION  FUNC(X) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  PARTSZ (NDIST , NPTS , VOLSMP , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 
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END 

C 

C 

SUBROUTINE  SORTER(NDIST , NPTS , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  VOLFRC(NDIST , NPTS , VOLSMP .DBANG , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  MTPRP (CONCI , CONCV , ICNT , FDBND , YHULT , IKIND , IHORI , IPOIS , 

*  STNTMP , IAUG , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  CRIT ( ICNT , NLTOT , IAUG , VOLSMP , GAMM , PRESS , CRTMAX , STRNP , 

*  ISKIP.IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  CALVAL (ICNT .PRESS .DILATO , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  NLSTRS(NDIST, NPTS, FDBND, YMULT, IKIND, IMORI, IPOIS, IAUG, 

*  STNTOL , ITERMX , NLTOT , STSFUD , STRNP , DILATO , I ABORT) 
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(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

BLOCK  DATA  INIT 

C-~~~  initialize  all  variables  and  arrays  used  in  program 
C  check  NPTMX  if  NTDIS  or  GSMX  are  changed,  check  matrices 
C  STRDAT  and  DILDAT  if  NSMAX  is  changed. 

C  NPTMX  =  NTDIS+GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX .NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  -  1000, NTDIS  =  1, NSMAX  =  10) 

COMMON  /GAUS/  Z(GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS,GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) .VOLPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD(NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,HV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AK1(1) ,AK2(1) ,STRNP1 (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) , SORVLP (NPTMX) , 

*  IPDIST(NPTMX) 

COMMON  /SENS/  YMRANG(NSMAX) ,FBRANG( NSMAX) ,STRLIM(5) , 

*  STRDAT (NSMAX, NSMAX) .DILDAT (NSMAX, NSMAX) 

C 

DATA  Z  / GSMX+O/  RADIUS  /NPTMX+O/  PROB  /NPTMX+O/ 

DATA  NUMPAR  /NPTMX*0/  VOLPAR  /NPTMX+O/  NETVF  /NPTMX+O/  NETVV  / 

*  NPTMX+O/  DADC  /NPTMX+O/  NPARTL  /NTDIS+O/ 

DATA  RADAVG  /NTDIS+O/  LOGSTD  /NTDIS+O/  VLFRFO  /NTDIS+O/  VLFRVO  / 

*  NTDIS+O/ 
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DATA  BETA  /2*0/  HI  /9*0/  WV  /9*0/  IDENT  /l, 0,0, 0,1, 0,0, 0,1/ 

DATA  S  /9*0/  CA  /9*0/  CB  /9*0/  CE  /9*0/  CF  /9*0/ 

DATA  K  /3*0/  G  /3*0/  E  /3*0/  POIS  /3*0/  Cl  /9*0/  CV  /9*0/  CO  /9*0/ 
DATA  Cli  /NPTMX*0/  C12  /NPTMX*0/  C21  /NPTMX*0/  C22  /NPTMX*0/  C23  / 

*  NPTMX*0/  ECMP  /NPTMX*0/  POISC  /NPTMXtO/ 

DATA  AKO  /1*0/  AK1  /1*0/  AK2  /1*0 /  STRNP1  /NPTMX*0/ 

DATA  CETSTN  /NPTMX*0/  STRESS  /NPTMX*0/  DILAT  /NPTHX+O/  PRBSRV  / 

*  NPTMX*0/  SQRRAD  /NPTMX+O/  SORPAR  /NPTHX+O/  SQRVLP  /NPTMX*0/ 

*  IPDIST  /NPTMX+O/ 

DATA  YMRANG  /NSMAX*0/  FBRANG  /NSMAX*0/  STRLIM  /5*0/  STRDAT  / 100*0/ 

*  DILDAT  / 100*0/ 

C 

END 

C 

C 

SUBROUTINE  QSIMP(FUNC,A,B,S) 

(subroutine  details  may  be  found  in  Appendix  E) 

END 

C 

C 

SUBROUTINE  TRAPZD(FUNC,A,B,S,N) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 

SUBROUTINE  S0RT3(N,RA,RB,RC,IRD) 

(subroutine  details  may  be  found  in  Appendix  E) 

END 

C 

C 

SUBROUTINE  CALCIO (STNTMP , IAUG , I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 

RETURN 

END 

C 

C 
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SUBROUTINE  CALCCV (FDBND , IPOIS , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  CMPRPO (IKIND , IHORI , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 

SUBROUTINE  CMPRP (CONGI , CONCV , YMULT , CAVG , IABORT) 
(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  CALCW ( IKIND , IMORI , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  CALCS (IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  GAMMA ( A, CONC.ITYPE, YMULT, I ABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 
C 
C 

SUBROUTINE  ADD(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 
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RETURN 

END 


SUBROUTINE  SUB(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 


SUBROUTINE  MULT(C,A,B) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 


SUBROUTINE  INVERT (AI , A , IABORT) 

(subroutine  details  may  be  found  in  Appendix  E) 
RETURN 
END 


SUBROUTINE  STRWRT (NDIST , NPTS , VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , IABORT) 
write  out  true  stress  and  dilatation  results  versus  critical  strain 
include  probability  survival,  radius,  no.  particles  and 
distribution  info,  write  intermediate  data  where  e_i<e_max  if 
IWRT>0 . 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX , NPTHX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000,NTDIS  =  l.NSMAX  =  10) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) ,V0LPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) .DADC(NPTMX) .NPARTL (NTDIS) 
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COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cii(NPTMX) ,Ci2(NPTMX) ,C2i(NPTMX) ,C22(NPTMX) , 

*  C23(NPTMX) .ECMP(NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AKi(l) ,AK2(i) ,STRNP1( NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) , STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) ,SORRAD( NPTMX) .SORPAR(NPTMX) , SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

COMMON  /SENS/  YMRANG(NSMAX) .FBRANG(NSMAX) ,STRLIM(5) , 

*  STRDAT (NSMAX , NSMAX) , DILDAT (NSMAX , NSMAX) 

CHARACTER  FILNM*5 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

WRITE  (6,*(/,A,A5,A)’)  »  Writing  to  *  ,FILNM,  ’S.DAT* 

C 

OPEN  (UNIT=7 ,FILE=FILNM// ’S .DAT' , STATUS® ’ UNKNOWN ’ ) 

WRITE  (7,5000) 

DO  10  I  =  l.NDIST 

WRITE  (7, * (1X,I1,4(3X,0PE11.4)) ’)  I ,RADAVG(I) ,LOGSTD(I) , 

*  VLFRFO (I) , VLFRVO ( I ) 

10  CONTINUE 

C 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IMORI,IPOIS 
WRITE  (7,5300)  PRESS , GAMM , DILATO , STSFUD , DBANG 
WRITE  (7,5500)  AKO(l) ,AK1(1) ,AK2(1) ,ISKIP 
IF  (INT(STRLIM(5) ) .EQ.l)  THEN 
WRITE  (7,5400) 

ELSE 

WRITE  (7,5700) 

ENDIF 

DO  30  ISEN  «  1 ,INT(STRLIM(2) ) 

DO  20  JSEN  •  1 ,INT(STRLIM(2)) 

C  STRFRC  «  STRDAT (ISEN, JSEN) 

C  DILFRC  ■  DILDAT (ISEN, JSEN) 

STRFRC  ■  (STRDAT (ISEN, JSEN) /STRLIM (3) )-l 
DILFRC  =  (DILDAT (ISEN , JSEN ) /STRLIM (4) ) -1 
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WRITE  (7,5600)  YMRANG(ISEN) .FBRANG(JSEN) .STRFRC.DILFRC 
20  CONTINUE 
30  CONTINUE 
C 

CLOSE  (7) 

RETURN 

5000  FORMAT  (»  #  avg  Rad(um)  std  dev  Vf  Vv’) 

5100  FORMAT  (>  Gm(Pa)=’ ,0PE11 .4, *  Gf (Pa)=» .0PE11.4, 1  vm=’ .OPEll .4, 

*  »  vf-’ .OPEll. 4, ’  Gv(Pa)=> .OPEll. 4, *  Kv*’ ,0PE11 .4) 

5200  FORMAT  (’  V(mm3)  s’.OPElM,’  frac  dbnd*’  .0PE11.4,  ’  Y-mult=’ .OPEll 

*  . 4 , *  w-type= ’ , 13 , ’  m-type= * , 13 , ’  v-type- ’ , 13) 

5300  FORMAT  (»  PO(Pa)=’ , OPEll .4, *  Gc(Pa-m)=’ .OPEll .4, *  (dV/V)0=’ .OPEll 

*  .4, *  crit.strs(Pa)=> .OPEll. 4, *  dbnd.ang(deg)=’ .OPEll. 4) 

5400  FORMAT  (»  Ym  Frac  Fb  frac  strs  frac  dil  frac’) 

5500  FORMAT  (»  AKO(Pa)=’ .OPEll. 4, »  AKl(Pa)=> .OPEll .4. »  AK2(Pa)=> .OPEll 

*  .4,  *  ISKIP-  M2) 

5600  FORMAT  (1X,4(1PE11.4,2X)) 

5700  FORMAT  (’  CrtSts  frac  Gc  frac  strs  frac  dil  frac’) 

C 


END 
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Sample  P14  Input  File 


ct3ms,  part  intact,  vacuole 
180 
1 

15.5 

0.167 

0.307,0.0 

4609 

2. IE-4, 1.17, 0,1,0 
0 . 4500E6 , 30E9 
0.495,0.16 
30E9.34.12E9 


!  information  header 
!  no.  pts.  in  curve 
!  no.  distributions 
!  avg.  particle  radius  (micron) 

!  log  std.  dev. 

!  inclusion  and  void  fraction 
!  sample  volume  (mm3) 

!  Fb , Ym , w-type ,m-type , v-type 
!  matrix  and  inclusion  shear  modulus  (Pa) 
!  matrix  and  inclusion  Poisson  ratio 
!  matrix  and  inclusion  bulk  modulus  (Pa) 


1.204,0  !  Gc,  pressure 

2,lE-3,20  !  a-type,  conv.  tol.,  max.  iterations 

10,0.45E6,0.0,2  !  no. steps  init. ,crit.strs,dbnd  angle, avg. fac. 

1 .554865E6,-0. 497499E6, 0.32 145 2E6  !  nonlinear  co-effs  in  Young’s  modulus  (Pa) 
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FORTRAN  Listing  for  P14.FOR 


main  program 
P 14. FOR 

uBer  enters  the  following  information: 

number  of  points  desired  in  stress-strain  curve  after  debond 

number  of  particle  distributions 

avg  radius  and  std  dev  of  each  distribution 

volume  fraction  of  filler  and  voids  of  each  distribution 

sample  volume 

fraction  debond,  YMULT,  w-type,  m-type,  v-type 
matrix  and  filler  shear  modulus 
matrix  and  filler  poisson  ratio 

void  shear  and  bulk  moduli  (if  both  values  zero  model  as  voids, 
if  non-zero,  use  filler  or  pseudo-filler  values) 
adhesion  energy  and  applied  pressure 
a-type ,  convergence  tolerance,  max.  iterations 
t  pts  before  debonding,  critical  stress,  debond  angle,  avg.fac. 
coefficients  kO,  ki,  k2  for  fitted  matrix  modulus 
information  may  be  entered  using  keyboard  or  by  input  data  file, 
avg.fac.  (averaging  factor)  is  number  of  points  to  use  to 
determine  average  energy  loss . 

three  options  for  printing  out  intermediate  results  are  available: 
if  values  for  no  pts  desired  in  stress-strain  curve  and  number 
of  particle  distributions  are  negative,  data  files  GAUSS, 
HISTO,  DEBUG  and  STRESS  are  written, 
if  value  for  no  pts  desired  in  stress-strain  curve  is  negative 
and  value  for  number  of  particle  distributions  is  positive, 
data  files  HISTO,  DEBUG  and  STRESS  are  written.  Also,  all 
intermediate  points  where  e_i  <  e_max  in  the  debond  section 
will  be  written. 

if  input  data  was  entered  using  data  file,  the  data  file  STRESS 
will  be  renamed  to  the  input  data  file’s  name. 

to  compile  and  link:  fl  pxx.for  graphics .lib.  the  files 

MSGRAPH . FOR  and  GRFDEF . FOR  should  be  in  the  same  directory  unless 
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C  a  temporary  variable  has  been  set  up  to  point  to  the  location  of 

C  include  files,  these  files  contain  graphics  routines  necessary  to 

C  plot  stress-strain  curve  on  screen. 

C 

C  first  file  written  by  sbr  STRWRT  has  indexing  of  the  various 
C  parameters  organized  as  follows : 

C  strain  -  current  critical  strain 

C  stress  -  current  true  stress  calc  using  previous  E  and  G  along 

C  with  crit . strain 

C  Pr_surv  -  current  no.  of  particles  remaining 
C  E,G  -  moduli  at  current  Pr_surv 

C  Vf ,Vv  -  current  filler  and  void  volume  fractions 

C  dG/dc,  dK/dc,  dA/dc  -  current  differential  quantities 

C  the  total  number  of  points  is  NDIST*NPTS+NLT0T+1  where  the 

C  additional  point  is  for  zero  strain  and  stress,  the  first  group  of 
C  debonded  particles  begins  at  ICNT=NLT0T+2 . 

C 

C  calculates  particle  size  histogram  with  corresponding  filler 
C  volume  fraction,  uses  Z-decrements  for  particle  size 
C  determination 

C 

C  added  routine  to  output  SQRT(r*dE/dc) .  dc  based  on  total  volume 

C  instead  of  Vf+Vm.  trapped  zero  in  SQRT  calc  of  crit.  strain. 

C 

C  implementation  of  Mori-Tanaka  solution  extended  for  3-phase  and 
C  particle  interaction,  constituent  material  properties 

C  designated  as  follows:  i-inclusion, 2-void  or  vacuole, 3-matrix. 

C  fraction  debond  (FDBND)  for  orthotropic  properties  in  loading 
C  direction,  multiplier  for  rad.  diet.  func.  (YMULT) ,  w-type 
C  designates  use  inclusion  or  void  properties  in 

C  calc  of  Wv  matrix  (O*void,  ^inclusion) ,  m-type  determines  type  of 
C  particle  interaction  used  (O*none, i*inclusion,  2*inclusion  and 
C  void  or  vacuole) ,  v-type  determines  isotropic  or  orthotropic  matl 
C  (O®orthotropic,l*isotropic) ,  a-type  determines  if  strain 

C  augmentation  is  used  (Oenone,  i*yes  in  initial  only,  2*yes  in 

C  initial  and  debond  sections) 

C 
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C  implementation  of  strain-dependent  matrix  modulus,  added  COMMON 
C  block  /PROPC/,  rearranged  conditional  statement  calling  sbr 

C  CALCIO,  CALCCV  and  CMPRPO.  included  composite  strain  in  the  MTPRP 

C  and  CALCIO  variable  lists. 

C  added  sbr  NLSTRS  to  calculate  behavior  before  debonding,  have  to 

C  set  critical  stress  STSFUD  to  identify  when  debonding  starts. 

C  debonding  values  offset  by  NLTOT . 

C  augmented  matrix  strain  used  in  initial  portion  of  curve  and  for 

C  calculating  matrix  properties  after  each  increment  in  critical 
C  strain  calc,  stored  augmented  strain  in  array  STRNP1  in  /PROPC/ . 

C 

C  added  statements  in  STRWRT  to  calculate  energy  released  by 
C  debonded  particles  in  particle  distribution. 

C 

C  included  modification  of  debonded  surface  area  by  debond  angle. 

C 

C  fixed  synchronization  problem  between  modulus  energy  liberation 
C  and  surface  area  energy  consumption  in  SBR  CRIT. 

C 

C  last  revision:  28  OCT  1996  1SH00 

C 

C  set  NPTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PR0B(NTDIS , GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS .GSMX) ,V0LPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3.3) ,CV(3.3) ,C0(3,3) 
COMMON  /PROPB/  Cll (NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23( NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 
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COMMON  /PROPC/  AKO(i) ,AK1(1) ,AK2(1) ,STRNP1( NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) , STRESS (NPTMX) ,DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) ,SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

CHARACTER  FILNM*8 


initialize  variables  and  arrays  by  BLOCK  DATA  INIT 


CALL  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT , IKIND , IMORI , IPOIS , GAMM , 

*  PRESS , FILNM , IWRT , I AUG , STNTOL , ITERMX , NLTOT , STSFUD , DB ANG , ISKIP ) 

I ABORT  =  0 

CALL  STRSTN (NDIST, NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  GAMM , PRESS , DILATO , I WRT , I AUG , STNTOL , ITERMX , NLTOT , STSFUD , 

*  STRNP.DBANG, ISKIP, I ABORT) 


write  out  debond  only  results  and  debug  data 

CALL  STRWRT (NDIST , NPTS , VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI , IPOIS , 

*  PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , I ABORT) 

IF  (ABS(IWRT) . GE. 1)  THEN 

CALL  STRAUX (NDIST, NPTS , VOLSMP , GAMM , FDBND , YMULT .IKIND , IMORI , 

*  IPOIS , PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , I ABORT) 
CALL  DBGWRT (ND 1ST , NPTS .NLTOT, I ABORT) 

CALL  DBGRAT (NDIST, NPTS .NLTOT, IABORT) 

ENDIF 

CALL  CRVPLT (NDIST .NPTS , NLTOT , IWRT , IABORT) 

END 


SUBROUTINE  INPUT (NDIST , NTOT , VOLSMP , FDBND , YMULT .IKIND , IMORI , IPOIS , 

*  GAMM , PRESS .FILNM , IWRT , IAUG , STNTOL , ITERMX , NLTOT , STSFUD , DBANG , 

*  ISKIP) 

reads  in  problem  input  either  by  file  or  keyboard,  if  data  entered 
through  a  file,  user  inputs  name  only,  a  file  extension  of  DAT  is 
assumed,  the  first  line  in  the  input  file  is  used  for  a  user 
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C  heading  and  is  not  read  in,  constituent  material  properties 
C  designated  as  follows:  i-inclus ion, 2-void  or  vacuole, 3-matrix 
C 

C  set  NPTMX  *  NTDIS*GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCHP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO(l) ,AKi(l) ,AK2(1) .STRNPl (NPTMX) 

CHARACTER  ANS* 1 , FILNM*8 
C 

WRITE  (6, ’ (/ ,A) ’ )  ’  Read  data  from  file?  (Y/N)’ 

READ  (5, ’ (Al) ’ )  ANS 
C 

IF  (ANS.EQ. ’Y’)  THEN 

WRITE  (6,’ (A)’)  ’  File  to  read?  (.INP  will  be  appended)' 

READ  (5 , ' (A8) ’ )  FILNM 

OPEN  (UNIT-7, FILE=FILNM//’ .INP’ ,F0RM=' FORMATTED’ ,STATUS=’OLD’ ) 
READ  (7,*) 

READ  (7,*)  NTOT 
READ  (7,*)  NDIST 
DO  10  I  =  l.ABS(NDIST) 

READ  (7,*)  RADAVG(I) 

READ  (7,*)  LOGSTD (I) 

READ  (7,*)  VLFRFO(I) ,VLFRVO(I) 

10  CONTINUE 

READ  (7,*)  VOLSMP 

READ  (7,*)  FDBND , YMULT , IKIND , IMORI , IPQIS 
READ  (7,*)  G(3) ,G(1) 

READ  (7,*)  P0IS(3) ,P0IS(1) 

READ  (7,*)  G(2) ,K(2) 

READ  (7 ,*)  GAMM, PRESS 

READ  (7,*)  IAUG , STNTOL , ITERMX 
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READ  (7,*)  NLTOT , STSFUD , DBANG , ISKIP 
READ  (7,*)  AKO(l) ,AK1(1) ,AK2(1) 

CLOSE  (7) 

ELSE 

WRITE  (6,’(/,A,I3,A)’) 

*  ’  no.  pts  desired  in  stress-strain  curve  (<’,GSMX,’)’ 

READ  (5,*)  NTOT 

WRITE  (6, ’ (A, II, A) ’)  ’  no.  of  particle  distributions  (<=’, 

*  NTDIS , ’ ) * 

READ  (5,*)  NDIST 

DO  20  I  ■  l.ABS (NDIST) 

WRITE  (6, ’(A, II, A)’)  >  for  distribution  no.  ’,1, 

*  ’  mean  radius  (micron) ’ 

READ  (5,*)  RADAVG(I) 

WRITE  (6 , ’ (A) ’ )  ’  log  normal  radius  std  dev  * 

READ  (5,*)  LOGSTD(I) 

WRITE  (6,* (A)’)  ’  initial  volume  fraction  filler  and  void* 
READ  (5,*)  VLFRFO(I) ,VLFRV0(I) 

CONTINUE 

WRITE  (6, ’(A)’)  ’  sample  volume  (mm3)’ 

READ  (5,*)  VOLSMP 

WRITE  (6,’ (A)*)  ’  dbnd  frac.rad  dist  mult,w-type,m-type,v-type’ 

READ  (5,*)  FDBND , YMULT , IKIND , IMORI , IPOIS 

WRITE  (6,’ (A)’)  ’  matrix  and  filler  shear  modulus  (Pa)’ 

READ  (5,*)  G(3) ,G(i) 

WRITE  (6,* (A)’)  *  matrix  and  filler  Poisson  ratio’ 

READ  (5,*)  P0IS(3) ,P0IS(1) 

WRITE  (6, ’(A)’)  »  void  shear  and  bulk  modulus  (Pa)’ 

READ  (5,*)  G(2) ,K(2) 

WRITE  (6,* (A)’)  *  Gc  (J/b2)  and  applied  pressure  (Pa)’ 

READ  (5,*)  GAMM, PRESS 

WRITE  (6, ’(A)’)  *  a-type,  strain  tolerance,  max.  iterations’ 
READ  (5,*)  IAUG , STNTOL , ITERMX 

WRITE  (6, ’(A)*)  ’  *  pts  before  debonding,  crit  strs(Pa),  debond 

*  ang(deg),  default  avg.fac.* 

READ  (5,*)  NLTOT, STSFUD, DBANG, ISKIP 

WRITE  (6, ’(A)’)  ’  matrix  tensile  modulus  coeffs  k0,kl,k2  (Pa)’ 
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READ  (5,*)  AKO(l) ,AKi(l) ,AK2(1) 

FILNM  ■  ’DEFAULT’ 

END  IF 
C 

C==  set  write  file  flag,  0*STRWRT,  1-STRWRT , DBGWRT , HSTWRT ,  2«all 
IWRT  =  0 

IF  (NTOT . LT . 0 . AND . NDIST . LT . 0)  IWRT  =  2 
IF  (NTOT. LT.O. AND. NDIST. GT.O)  IWRT  =  i 
NDIST  *  ABS (NDIST) 

NTOT  «  ABS (NTOT) 

IF  (IAUG.EQ.O)  NLT0T=0 
C 

RETURN 

END 

SUBROUTINE  STRSTN (NDIST , NTOT , NPTS , VOLSMP , FDBND , YMULT , IKIND , IMORI , 

*  IPO IS , GAMM .PRESS , DILATO , IWRT , I AUG , STNTOL , ITERMX , NLTOT , 

*  STSFUD , STRNP , DBANG , ISKIP , I ABORT) 

C===s  main  subroutine  which  organizes  particle  size  distribution, 

C  composite  property,  critical  strain  and  true  stress  and  dilation 
C  calculation  modules . 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCHP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) , NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP( NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AK0(1) ,AK1(1) ,AK2(1) , STRNP 1 (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

C==  initialize  abort  flag 
I ABORT  ■  0 
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C 

Css  create  gaussian  distribution  of  particle  size 

WRITE  (6, ’(/.A)’)  ’  Generating  particle  distribution’ 

CALL  GAUSS (NDIST , NTOT , NPTS , I ABORT) 

C==  write  out  gaussian  cumulative  data 

IF  (ABS(IWRT) .GE.2)  CALL  GAUWRT (NDIST, NPTS, I ABORT) 

C 

C==  find  size  and  number  of  particles  to  debond 

WRITE  (6,’(/, A)’)  ’  Finding  particle  size  and  number’ 

CALL  PARTSZ (NDIST, NPTS , VOLSMP , IABORT) 

C==  write  out  particle  size  and  number  histogram 

IF  (ABS(IWRT).GE.l)  CALL  HSTWRT (NDIST, NPTS, IABORT) 

C 

WRITE  (6,’(/,A)’)  ’  Sorting  particle  distributions’ 

CALL  SORTER(NDIST, NPTS, IABORT) 

WRITE  (6, ’(A)’)  ’  Calculating  vol  fractions  and  dA/dc’ 

CALL  VOLFRC (NDIST , NPTS , VOLSMP , DBANG , IABORT) 

C 

WRITE  (6,’(/,A)’)  ’  Generating  true  stress-strain  curve’ 

C==  calculate  initial  composite  properties 
ICNT  =  1 

CONCI  =  NETVF(ICNT) 

CONCV  =  NETVV(ICNT) 

STRNO-O 

CALL  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , IPOIS , STRNO , 

*  IAUG, IABORT) 

IF  (IABORT. Eq.O)  WRITE  (6, ’ (A, IX, 13, A, 13, A) ’) 

*  ’  Calculating  point:  ’ .ICNT, ’/’ ,NDIST*NPTS+NLT0T+1, ’  max’ 

CALL  NLSTRS (NDIST , NPTS , FDBND , YMULT .IKIND , IMORI , IPOIS , IAUG , STHTOL , 

*  ITERMX . NLTOT , STSFUD , STRNP , DILATO , IABORT) 

C 

C==  main  routine  for  debonding  and  true  stress-strain  calculation. 

C  offset  pointer  ICNT  by  1  to  make  room  for  undebonded  state. 

C  STRNP  in  NLSTRS  is  matrix  strain  at  end  of  initial  portion. 

C  matrix  strain  revised  if  e_i  >  e.max,  if  it  is  not  STRNP 

C  maintained  at  current  e_max.  IPDIST  used  as  a  flag  to  show  when 

C  STRNP  has  been  updated. 
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C 

CRTMAX  «  CRTSTN (NLTOT+1) 

DO  50  ICNT  =  2+NLT0T,NDIST*NPTS+NLT0T+l 
CONCI  =  NETVF(ICNT) 

CONCV  =  NETVV(ICNT) 

CALL  HTPRP (CONCI .CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS .STRNP , IAUG , IABORT) 

IF  (IABORT. EQ.O)  WRITE  (6, * (A, IX, 13. A, 13, A) ’) 

*  »  Calculating  point:  ’.ICNT, ’/’ ,NDIST*NPTS+NLT0T+1, »  max’ 
CALL  CRIT ( ICNT , NLTOT , I AUG , VOLSMP , GAMM , PRESS , CRTMAX , STRNP , 

*  ISKIP, IABORT) 

STRNP 1 (ICNT)  =  STRNP 

CALL  CALVAL (ICNT .PRESS , DILATO , IABORT) 

50  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  GAUSS (NDIST ,NTOT ,NPTS , IABORT) 

C====  Program  calculates  the  cumulative  area  underneath  the 
C  gaussian  curve  between  the  limits  +/-  (IEND/FACT)  in  increments 

C  of  IDELT/FACT.  NTOT  is  used  to  calculate  an  appropriate  IDELT. 

C  since  IDELT  is  rounded  down,  the  exact  number  of  points  may  be 

C  greater,  this  is  reflected  in  NPTS. 

C  Particle  radii  converted  from  microns  to  millimeters. 

C  An  IEND  of  3301  gives  a  cumulative  distribution  which  starts 

C  at  0.0005  and  ends  at  0.9995.  This  avoids  having  extremely  large 

C  particles  when  the  log  standard  deviation  is  large. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX.NPTMX 

PARAMETER  (GSMX  =  1000.NPTMX  =  1000.NTDIS  =  1) 

PARAMETER  (ISTART  =  2, IEND  =  3301, FACT  =  1000.BEGNPT  ■  0) 
EXTERNAL  FUNC 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 
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*  VLFRVO (NTDIS) 

C 

IMAX  «  GSHX/2 

IDELT  «  2*INT( (IEND-ISTART)/NTOT) 

NPTS  =  2* ( INT ( ( IEND- ISTART ) /IDELT) + 1 ) 

IF  (NPTS. GT. IMAX)  THEN 

WRITE  (6,’ (A)’)  ’  Too  many  points:  SBR  GAUSS.’ 

WRITE  (6, ’ (A, 14, A) ’ )  ’  Over  max  dim  by  ’ .NPTS-GSMX, ’  points.’ 

IABORT  =  1 

RETURN 

ELSE 

ENDIF 

C 

DO  20  J  «  l.NDIST 

IPTS  =  0 

DO  10  I  «  ISTART, IEND, IDELT 
IPTS  =  IPTS+1 
ENDPT  =  (FLOAT (I )-l) /FACT 
Z(NPTS/2+IPTS)  »  ENDPT 
Z (NPTS/2-IPTS+ 1 )  =  -ENDPT 
C==  calculate  upper  portion  of  probability  curve 

RADTMP  =  10**(AL0G10(RADAVG(J) )+ENDPT*LOGSTD( J)) 

RAD IUS ( J , NPTS/ 2+ IPTS )  =  RADTMP/1000 
CALL  QSIMP(FUNC,BEGNPT, ENDPT, SURF) 

PROB ( J , NPTS /2+ IPTS )  ■  O.B+SURF 
C==  calculate  lower  portion  of  probability  curve 

RADTMP  =  10** ( AL0G10 (RADAVG ( J) ) -ENDPT*LOGSTD ( J) ) 
RADIUS(J,NPTS/2-IPTS+l)  -  RADTMP/1000 
PR0B(J,NPTS/2-IPTS+l)  ■  0.5-SURF 
10  CONTINUE 
20  CONTINUE 
C 

RETURN 

END 

C 

FUNCTION  FUNC(X) 

Cs=s=  function  used  for  gaussian  curve,  called  from  sbr  GAUSS,  sbr 
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C  QSIMP  and  sbr  TRAPZD . 

PI  =  3 . 141592654 

FUNC  =  (1.0/SQRT(2.0*PI))*EXP(-X**2/2.0) 
RETURN 
END 
C 
C 
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SUBROUTINE  PARTSZ (NDIST, NPTS , VOLSHP , I ABORT) 

C=ss==  sbr  finds  the  total  particle  volume  on  a  per  particle  basis. 

C  from  this  the  number  of  particles  present  in  the  composite  is 
C  calculated  knowing  the  initial  volume  the  particles  occupy. 

C  the  incremental  probability  of  the  largest  particles  is 
C  calculated  using  a  fraction  (PFRAC)  of  the  previous  probability 

C  increment  so  that  there  is  a  smooth  transition  from  largest  to 

C  smaller  particle  sizes  in  terms  of  number. 

C 

C  set  NPTMX  =  GSMX*NTDIS 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  «  1000, NPTMX  =  1000.NTDIS  =  1) 

PARAMETER  (PI  =  3. 14 16927, PFRAC  =  0.75) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) , VOLPAR (NTDIS , GSMX) , 

*  NETVF (NPTMX) ,NETW (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD (NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

C 

IF  (IAB0RT.EQ.1)  RETURN 
C 

C==  find  total  number  of  particles  in  given  filler  volume 
DO  20  IDIST  =  1, NDIST 
VOLTOT  =  0 

C  find  total  volume  on  a  per  particle  basis 
DO  10  IPTS  «  1 , NPTS 

IF  ( IPTS. EQ. NPTS)  THEN 

VOLPAR(IDIST , IPTS)  ■  PFRAC* (PROB (IDIST, IPTS) - 

*  PROB (IDIST , IPTS-1 ) ) * (4 . 0/3 . 0) *PI*RADIUS (IDIST , IPTS) **3 
ELSE 

VOLPAR(IDIST , IPTS)  «  (PROB (IDIST, IPTS+1)- 

*  PROB (IDIST, IPTS) ) * (4 . 0/3 . 0) *PI*RADIUS (IDIST , IPTS) **3 
ENDIF 

VOLTOT  «  VOLTOT+VQLPAR(IDIST, IPTS) 

10  CONTINUE 
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C  find  total  number  of  particles 

NPARTL(IDIST)  =  VLFRFO(IDIST)*VOLSMP/VOLTOT 
20  CONTINUE 
C 

C  calculate  volume  taken  up  by  particles  of  radius  r 
DO  40  IDIST  *  l.NDIST 
DO  30  IPTS  =  l.NPTS 

IF  (IPTS.EQ.NPTS)  THEN 

NUMP AR ( ID I ST , IPTS )  =  NPARTL( IDIST) *PFRAC*( 

*  PROB (IDIST , IPTS) -PROB (IDIST , IPTS-1) ) 

IF  (NUMP AR(IDIST, IPTS). LT. 1.0)  IFLAG  -  1 
VOLPAR(IDIST,IPTS)  =  NUMPAR(IDIST,IPTS)*(4.0/3.0)*PI* 

*  RADIUS (IDIST, IPTS) **3 
ELSE 

NUMPAR( IDIST, IPTS)  =  NPARTL(IDIST)*(PR0B(IDIST,IPTS+1)- 

*  PROB (IDIST, IPTS)) 

IF  (NUMP AR(IDIST, IPTS). LT. 1.0)  IFLAG  «  1 
VOLPARdDIST ,  IPTS)  =  NUMPAR(IDIST,IPTS)*(4.0/3.0)*PI* 

*  RADIUS (IDIST, IPTS) **3 
END  IF 

C 

IF  ( IFLAG. Eq.l)  THEN 

WRITE  (6,5000)  IDIST, IPTS, RADIUS (IDIST, IPTS) , 

*  NUMPAR(IDIST , IPTS) 

IFLAG  =  0 

ELSE 
END  IF 
C 

30  CONTINUE 
40  CONTINUE 
C 

C  RETURN 

5000  FORMAT  (’  Error  SBR  PARTSZ:  IDIST* ’,11,’  IPTS=’,I3,’  RAD*’, El 1.6, 

*  ’  NUMPAR*’ ,E11.6) 

END 

C 

C 
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SUBROUTINE  SORTER (NDIST, NPTS , I ABORT) 

Cs“s  loads  radius,  number  of  particles  and  total  volume  of  particles 
C  of  radius  r  from  each  distribution  in  a  master  array  to  sort. 

C  after  sorting  radii  in  ascending  order,  arrays  are  flipped 
C  according  to  radius  to  give  descending  order. 

C 

C  set  NPTMX  =  NTDIS+GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /GAUS/  Z (GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (I ABORT. EQ. 1)  RETURN 
C 

C*  load  master  arrays 

DO  20  I  =  1, NDIST 
DO  10  J  =  l.NPTS 

SORRAD ( ( I- 1 ) *NPTS+ J )  =  RADIUS(I.J) 

SORPAR ( ( 1-1 ) *NPTS+ J)  =  NUMPAR(I.J) 

SORVLP (( I- 1)*NPTS+J)  =  VOLPAR(I.J) 

IPDIST((I-1)*NPTS+J)  -  I 
10  CONTINUE 
20  CONTINUE 
C 

C*  sort  master  arrays  in  ascending  order 

NTOT  -  NDIST*NPTS 

CALL  S0RT3 (NTOT , SORRAD , SORPAR , SORVLP , IPDIST) 

C 

C*  sort  master  arrays  in  descending  order 
DO  30  I  e  1 ,NDIST*NPTS/2 
ATMP  *  SORRAD (I) 
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SORRAD(I)  =  SORRAD (NDIST*NPTS-I+ 1 ) 

SORRAD(NDIST*NPTS-I+i)  =  ATMP 
BTMP  =  SORPAR(I) 

SORPAR(I)  =  SORPAR (NDIST*NPTS-I+ 1 ) 

SORPAR(NDIST*NPTS-I+i)  =  BTMP 
CTMP  *  SORVLP(I) 

SORVLP(I)  =  SORVLP(NDIST*NPTS-I+i) 

SORVLP(NDIST*NPTS-I+i)  =  CTMP 
ITMP  =  IPDIST(I) 

IPDIST(I)  =  IPDIST (NDIST*NPTS-I+1) 

IPDIST(NDIST*NPTS-I+1)  =  ITMP 
30  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  VOLFRC (NDIST , NPTS , VOLSMP , DBANG , I ABORT) 

C====  calculates  dA/dc,  net  Vf ,  net  Vv  and  probility  of  survival  for 
C  given  particle  radius.  Note:  net  Vf  is  based  on  total  sample  vol. 

C  Prob  of  surv  is  based  on  numbers  of  particles. 

C 

C  set  NPTMX  =  NTDIS*GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  1) 

PARAMETER  (PI  =  3.1415927) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) ,DADC (NPTMX) , NPARTL (NTDIS) 

COMMON  /DIST/  RADAVG (NTDIS) .LOGSTD (NTDIS ) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) . 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 
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C 

Css  calculate  total  volume  fraction  filler  and  void 
NETVF(l)  =  0 
NETVV(l)  =  0 
DO  10  I  =  l.NDIST 

NETVF(i)  =  NETVF ( i ) + VLFRFO ( I ) 

NETVV(l)  ■  NETVV(1)+VLFRV0(I) 

10  CONTINUE 

PRBSRV(l)  =1.0 
C 

C==  calculate  net  Vf  and  Vv,  dA/dc  and  Prob  surv.  array  index  offset 

C  by  1  to  leave  room  for  initial  undebonded  state  and  leave  room  for 

C  initial  portion  of  stress -strain  curve 
C 

SRVNUM  =  0 
C 

C==  find  total  number  of  particles 
DO  20  ICNT  =  l.NDIST 

TLNUMP  =  TLNUMP+NPARTL (ICNT) 

20  CONTINUE 
C 

DO  30  JCNT  =  2,NDIST*NPTS+1 

VLFTOT  =  VLFTOT-SORVLP ( J CNT- 1 ) 

NETVF (JCNT)  =  NETVF ( JCNT- i)-S0RVLP( JCNT- 1)/V0LSMP 
NETVV(JCNT)  =  NETVV ( J CNT- 1 ) +S0RVLP ( JCNT- 1 ) / VOLSHP 
SRVNUM  =  SRVNUM+SORP AR ( J CNT- 1 ) 

PRBSRV(JCNT)  =  CTLNUMP-SRVNUM) /TLNUMP 

DADC(JCNT)  «  -6. 0*( 1-SIN (DBANG*3. 14159/180) )*V0LSMP/ 

*  SORRAD(JCNT-l) 

30  CONTINUE 

C 

RETURN 

END 

C 

C 

SUBROUTINE  MTPRP (CONCI , CONCV . ICNT .FDBND . YMULT , IKIND , IMORI , IPOIS , 

*  STNTMP , IAUG , IABORT) 
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C====  program  for  calculating  composite  modulus  based  on  Mori-Tanaka. 
C  FDBND=fraction  debond  for  orthotropic  properties  in  loading 
C  direction,  IKIND=use  inclusion  or  void  properties  in  calc  of 
C  Wv  matrix,  IMORI=type  of  particle  interaction  used  O=none , 

C  l=inclusion,  2=inclusion  and  void  or  vacuole , IPOIS=type  of 

C  debond  properties  O=orthotropic, lsisotropic.  recalculates 
C  matrix  modulus  each  time  routine  is  called. 

C 

REAL  I DENT , K , KCMP , H AG 

PARAMETER  (GSMX  =  1000.NPTMX  =  1000,NTDIS  =  i) 

COMMON  /PROPB/  Cll(NPTMX) ,Ci2(NPTMX) ,C2i(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) .ECMP(NPTMX) ,POISC(NPTMX) 

DIMENSION  CAVG(3 ,3) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

C  changed  this  block  so  that  any  variables  that  depend  on  matrix 
C  modulus  calculated  each  time  new  strain  is  available 
CALL  CALCIO (STNTMP , IAUG , IABORT) 

IF  (ICNT.EQ.i)  CALL  CALCCV(FDBND,IPOIS,IABORT) 

CALL  CMPRPO (IKIND , IMORI , IABORT) 

C 

CALL  CMPRP (CONCI , CONCV , YMULT , CAVG , IABORT) 

Cil(ICNT)  =  CAVG(1,1) 

C12CICNT)  =  CAVG (1,2) 

C2KICNT)  =  CAVG(2, 1) 

C22(ICNT)  =  CAVG(2,2) 

C23(ICNT)  =  CAVG(2,3) 

ECMP(ICNT)  =  Cll(ICNT)-2 . 0*C12(ICNT)*C21 (ICNT)/(C22(ICNT)+ 

*  C23CICNT)) 

POISC(ICNT)  =  C21(ICNT)/(C22(ICNT)+C23(ICNT)) 

C 

RETURN 

END 

C 

C 

SUBROUTINE  CRIT(ICNT , NLTOT , IAUG , VOLSMP , GAMM , PRESS , CRTMAX , 
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*  STRNP , ISKIP , IABORT) 

C====  calculates  current  critical  strain  based  on  difference  between 
C  current  and  previous  properties  because  the  energy  balance 
C  requires  the  input  work  to  equal  the  energy  released  by  surface 

C  creation  and  the  internal  energy  stored  after  debonding  has  taken 

C  place. 

C  surface  area  energy  consumption  is  averaged  over  IPDIST=9  points 
C  and  used  with  energy  liberated  due  to  reinforcement  loss  in 
C  increment  ICNT.  the  energy  in  ICNT  can  be  considered  a  rough 
C  estimate  of  the  avg.  loss  between  IPDIST=9  points. 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , KTMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000, NTDIS  =  1) 

PARAMETER  (TOL  =  IE- 18) 

COMMON  /GAUS/  Z (GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) ,VOLPAR( NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV(NPTMX) .DADC(NPTMX) .NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cl 1 (NPTMX) ,C12 (NPTMX) ,C21 (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) ,S0RPAR( NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ.l)  RETURN 
C 

CONV  -  1.0E+3 
C 

IFACT  ■  0 

DADCTL  *  DADC(ICNT) 

IF  ( IPDIST (ICNT- 1 ) . NE . 9 . AND . ICNT . GT . MLTOT+2)  THEN 
IFACT  «  1 

DO  10  I  ■  ICNT-1 , NLTOT+2 , -1 
IF  (IPDIST(I) .EQ.9)  GOTO  20 
DADCTL  =  DADCTL  +  DADC(I) 
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IF ACT  =  IFACT+i 
10  CONTINUE 
20  CONTINUE 
END  IF 

DC  -  NETVF ( I CNT ) -NETVF ( I CNT- 1 ) 

IF  (ABS(DC) .LT.TQL)  DC  =  -TOL 

TC12  =  C12CICNT) 

TC21  *  C21CICNT) 

TC22  =  C22(ICNT) 

TC23  *  C23CICNT) 

DC11  =  (Cil (ICNT)-Cli(ICNT-i) )/DC 
DC12  =  (C12(ICNT)-C12(ICNT-1))/DC 
DC21  =  (C21 (ICNT)-C2i (ICNT-1) )/DC 
DC22  =  (C22 (ICNT) -C22 (ICNT-1)) /DC 
DC23  =  (C23(ICNT)-C23(ICNT-1))/DC 

AqUAD  *  -DC 1 1+2 . 0* ( (TC22+TC23) * (TC21*DC12+TC12*DC21)- (TC12*TC21* ( 
*  DC22+DC23) ) ) / (TC22+TC23) **2 

CQUAD  =  C0NV*2*GAMM*DADCTL/V0LSMP 

IF  (IFACT.EQ.O)  IFACT=ISKIP 
CQUAD  =  CqUAD/REAL ( IFACT ) 

IF  (AqUAD. GE.O)  THEN 

WRITE  (6 , ’ (A) * )  ’  SBR  CRIT:  square  root  term  is  negative.’ 
CRTSTN(ICNT)  =  CRTSTN (ICNT-1) 

ELSE 

CRTSTN (I CNT)  =  SqRT (CqUAD/ AqUAD) 

ENDIF 

IF  (CRTSTN (ICNT) .GT.CRTMAX)  THEN 

STRNP  =  (ECMP(ICNT)/E(3) )*CRTSTN(ICNT) 

CRTMAX  =  CRTSTN (ICNT) 

IPDIST(ICNT)  =  9 


ENDIF 
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C 

RETURN 

END 

C 

C 

SUBROUTINE  CALVALCICNT .PRESS .DILATO , I ABORT) 

Cs===  calculates  true  stress  and  dilatation  at  critical  strain 
C  properties  used  are  those  before  debonding  takes  place 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , KTHP , HAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  «  1000.NTDIS  =  i) 

COMMON  /PROPB/  Cii(NPTMX) ,Ci2(NPTMX) ,C2i(NPTMX) ,C22(NPTMX) , 

*  C23(NPTMX) .ECMP(NPTMX) ,POISC(NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) , STRESS (NPTMX) .DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

TC21  =  C2KICNT-1) 

TC22  ■  C22(ICNT-1) 

TC23  =  C23(ICNT-1) 

ETMP  =  ECMP(ICNT-l) 

IF  (ICNT.EQ.2)  DILATO  ■  PRESS*0 
C 

STRESS (ICNT)  ■  ETMP*CRTSTN(ICHT) 

C**  change  stress  values  to  MPa 

STRESS (ICNT)  -  STRESS ( ICNT) /I .0E6 

DILAT(ICNT)  «  ( 1- (2 . 0*TC2 1/ (TC22+TC23) ) ) * CRTSTN ( ICNT) -DILATO 
C 

RETURN 

END 

C 

C 

SUBROUTINE  NLSTRS (NDIST , NPTS , FDBND , YMULT , IKIND , IMORI , IPOIS , IAUG , 
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*  STNTOL , ITERMX ,NLTOT , STSFUD .STRNP , DILATO , I ABORT) 

==  offsets  results  to  make  room  for  pre-debonding  results,  uses 
STSFUD  as  max.  stress  and  sub-divides  interval  into  NLTOT  sub' 
steps,  iterates  to  find  equilibrium  strain. 


REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  I DENT , K , KCMP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  -  1000, NPTMX  *  1000.NTDIS  *  1) 

PARAMETER  (PRMX  =  0.95) 

COMMON  /DEBUG/  NUMP ARCNTDIS, GSMX ) ,VOLPAR(NTDIS, GSMX) , 

*  NETVF (NPTMX) ,NETVV(NPTMX) ,DADC (NPTMX) .NPARTL(NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP( NPTMX) ,POISC(NPTMX) 

COMMON  /PROPC/  AKO(l) ,AKi(l) ,AK2(1) , STRNP 1 (NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) .STRESS (NPTMX) ,DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

IF  (IABORT.EQ . 1 .OR. IAUG.EQ .0)  RETURN 


shift  values  which  are  needed  later  by  sbr  STRSTN 
DO  10  I=NDIST*NPTS+1 ,2 ,-l 
NETVF (I+NLTOT)  -  NETVF (I) 

NETVV (I+NLTOT)  =  NETVV(I) 

DADC( I+NLTOT)  »  DADC(I) 

PRBSRV (I+NLTOT)  =  PRBSRV(I) 

10  CONTINUE 


fill  in  the  values  that  do  not  change  in  this  stage 
DO  20  1=2 .NLTOT+l 
PRBSRV (I)  =  1 
NETVF (I)  =  NETVF(l) 

NETVV(I)  =  NETVV (1) 

IPDIST(I)  =  0 


20  CONTINUE 
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C 

C  calculate  stress-strain  behavior 
CONCI  =  NETVF(l) 

CONCV  ■  NETVV(i) 

DO  70  ICNT  *  2.NLT0T+1 

STRESS ( I CNT)  *  REAL (ICNT- i)*STSFUD/REAL(NLTOT) 

C 

STRNO  =0.0 

IF  (ICNT.GT.2)  STRNO  «  CRTSTN(ICNT-l) 

DO  50  ITER  =  i , ITERMX 

CALL  MTPRP (CONCI .CONCV , ICNT , FDBND , YMULT , IKIND , IMORI . IPOIS . 

*  STRNO, IAUG.IABORT) 

C 

IF  (ABS(IAUG) . GE. 1)  THEN 

STRNPO  =  (ECMP (ICNT) /E(3) ) *STRNO 
DO  30  JTER  =  1, ITERMX 

CALL  MTPRP (CONCI , CONCV , ICNT , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS, STRNPO, IAUG.IABORT) 

STRNPl(ICNT)  =  (ECMP (ICNT) /E(3))*STRN0 
ERR  =  i 

IF  (STRNPl(ICNT) . NE.O)  ERR  =  ABS((STRNP1(ICNT) 

*  -STRNPO) /STRNPi (ICNT)) 

C  WRITE  (6, ’ (A,2X,I2,2X,I2,2X,I2,3E12.4) ’ ) 

C  *  *  ICNT-ITER-JTER-Pl-PO-ERR’.ICNT, ITER, JTER, STRNPI, 

C  *  STRNPO, ERR 

STRNP  =  STRNPI (ICNT) 

IF  (ERR . LE . STNTOL)  GOTO  40 
STRNPO  -  STRNPI (ICNT) 

30  CONTINUE 

IF  (ITER. GE. ITERMX. OR. JTER. GE. ITERMX)  WRITE  (6,,(A,I3),> 

*  ’  SBR  NLSTRS:  iteration  max.  reached.  ICNT^.ICNT 

40  CONTINUE 

ELSE 
END  IF 
C 

STRN1  =  STRESS (ICNT) /ECMP (ICNT) 

ERR  =  ABS((STRNl-STRNO)/STRNi) 


UNCLASSIFIED 

E24 


WRITE  (6, ’ (A,2X,I2,2X,I2,4E12.4) ’ ) 

*  »  ICNT-ITER-STRS-ECMP-R-ERR ’ , 

*  ICNT, ITER, STRESS (ICNT) .ECMP(ICNT) ,ECHP(ICHT)/E(3) ,ERR 
IF  (ERR . LE . STNTOL)  GOTO  60 

STRNO  =  STRNi 
50  CONTINUE 

60  CONTINUE 

change  true  stress  values  to  MPa 
STRESS (ICNT)  =  STRESS (ICNT) /1E6 
CRTSTN(ICNT)  =  STRN1 
TC21  =  C2KICNT) 

TC22  =  C22(ICNT) 

TC23  <=  C23(ICNT) 

DILAT(ICNT)  =  (i-(2.0*TC2i/ (TC22+TC23)) )*STRN1+DILAT0 

IF  (IABORT.EQ.O)  WRITE  (6, * (A, IX, 13, A, 13, A) ’) 

*  »  Calculating  point:  ' , ICNT, »/» ,NDIST*NPTS+NLTOT+i, »  max’ 


70  CONTINUE 

RETURN 

END 

BLOCK  DATA  INIT 

===  initialize  all  variables  and  arrays  used  in  program 
check  NPTMX  if  NTDIS  or  GSMX  are  changed. 

NPTMX  =  NTDIS*GSMX 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000, NTDIS  -  1) 

COMMON  /GAUS/  Z(GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS,GSMX) 
COMMON  /DEBUG/  NUMPAR(NTDIS .GSMX) ,VOLPAR(NTDIS , GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) , DADC (NPTMX) .NPARTL (NTDIS) 
COMMON  /DIST/  RADAVG(NTDIS) .LOGSTD(NTDIS) .VLFRFO (NTDIS) , 

*  VLFRVO (NTDIS) 
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COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23(NPTMX) ,ECMP(NPTMX) ,POISC(NPTMX) 

COMMON  /PROPC/  AKO(i) ,AKi(l) ,AK2(1) ,STRNP1 (NPTMX) 

COMMON  /RESULT/  CRTSTN(NPTMX) , STRESS (NPTMX) ,DILAT (NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) , SORPAR (NPTMX ) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

DATA  Z  /GSMX*0/  RADIUS  /NPTMX*0/  PROB  /NPTMX*0/ 

DATA  NUMPAR  /NPTMX+O/  VOLPAR  /NPTMX*0/  NETVF  /NPTMX*0/  NETW  / 

*  NPTMX*0/  DADC  /NPTMX*0/  NPARTL  /NTDIS*0/ 

DATA  RADAVG  /NTDIS+O/  LOGSTD  /NTDIS*0/  VLFRFO  /NTDIS*0/  VLFRVO  / 

*  NTDIS*0/ 

DATA  BETA  /2*0/  WI  /9*0/  WV  /9*0/  IDENT  /i, 0,0, 0,1, 0,0, 0,1/ 

DATA  S  /9*0/  CA  /9*0/  CB  /9*0/  CE  /9*0/  CF  /9*0/ 

DATA  K  /3*0/  G  /3*0/  E  /3*0/  POIS  /3*0/  Cl  /9*0/  CV  /9*0/  CO  /9*0/ 
DATA  Cll  /NPTMX*0/  C12  /NPTMX*0/  C21  /NPTMX*0/  C22  /NPTMX+O/  C23  / 

*  NPTMX*0/  ECMP  /NPTMX*0/  POISC  /NPTMX*0/ 

DATA  AKO  /1*0/  AK1  /1*0/  AK2  /1*0/  STRNP1  /NPTMX*0/ 

DATA  CRTSTN  /NPTMX*0/  STRESS  /NPTMX+O/  DILAT  /NPTMX+O/  PRBSRV  / 

*  NPTMX+O/  SORRAD  /NPTMX+O/  SORPAR  /NPTMX+O/  SORVLP  /NPTMX*0/ 

*  IPDIST  /NPTMX*0/ 


END 
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SUBROUTINE  QSIMP(FUNC,A,B,S) 

C====  used  for  integration  of  gaussian  curve  in  sbr  GAUSS,  obtained 
C  from  Numerical  Recipes,  W.H.  Press,  Cambridge,  1988. 

C 

EXTERNAL  FUNC 

PARAMETER  (EPS  =  1.E-6.JMAX  =  20) 

OST  =  -1.E30 
OS  =  -1.E30 
DO  10  J  =  1 , JMAX 

CALL  TRAPZD (FUNC , A , B , ST , J) 

S  *  (4.*ST-0ST)/3. 

IF  (ABS(S-OS) .LT.EPS*ABS(OS))  RETURN 
OS  =  S 
OST  =  ST 
10  CONTINUE 

PAUSE  ’Too  many  steps:  SBR  QSIMP’ 

END 

C 

C 

SUBROUTINE  TRAPZD (FUNC, A, B,S,N) 

C====  used  for  integration  of  gaussian  curve  in  sbr  QSIMP  which  is 
C  called  from  sbr  GAUSS,  obtained  from  Numerical  Recipes,  W.H. 
C  Press,  Cambridge,  1988. 

C 

EXTERNAL  FUNC 
IF  (N.EQ.l)  THEN 

S  =  0 . 5* (B-A) * (FUNC (A) +FUNC (B) ) 

IT  =  1 
ELSE 

TNM  =  IT 
DEL  =  (B-A) /TNM 
X  =  A+0.5+DEL 
SUM  =  0. 

DO  10  J  =  l.IT 

SUM  =  SUM+FUNC(X) 

X  =  X+DEL 


10 


CONTINUE 
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S  =  0 . 6* (S+ (B-A) *SUM/TNM) 
IT  =  2*IT 
ENDIF 
RETURN 
END 


SUBROUTINE  SDRT3 (N , RA , RB , RC , IRD) 

sorting  routine  from  Numerical  Recipes,  W.H.  Press,  Cambridge, 
1988.  sorts  in  ascending  order  array  RA  and  moves  elements  in 
arrays  RB,  RC  and  IRD  at  the  same  time. 


DIMENSION  RA(N) ,RB(N) ,RC(N) ,IRD(N) 
L  «  N/2+1 
IR  =  N 
CONTINUE 
IF  (L.GT.l)  THEN 
L  =  L-l 
RRA  =  RA(L) 

RRB  =  RB(L) 

RRC  =  RC(L) 

IRRD  ■  IRD(L) 

ELSE 

RRA  *  RA(IR) 

RRB  =  RB(IR) 

RRC  -  RC(IR) 

IRRD  ■  IRD(IR) 

RA(IR)  »  RA(1) 

RB(IR)  >  RB(1) 

RC(IR)  «  RC(1) 

IRD(IR)  «  IRD(l) 

IR  ■  IR-1 
IF  (IR.EQ.l)  THEN 
RA(1)  -  RRA 
RB(1)  =  RRB 
RC(1)  «  RRC 
IRD Cl)  ■  IRRD 


UNCLASSIFIED 

E28 


RETURN 
END  IF 
END  IF 
I  =  L 
J  «  L+L 

IF  (J.LE.IR)  THEN 
IF  (J.LT.IR)  THEN 

IF  (RA(J).LT.RA(J+D)  J  ■  J+l 
END  IF 

IF  (RRA.LT.RA(J))  THEN 
RA(I)  =  RA( J) 

RB(I)  =  RB(J) 

RC(I)  «  RC(J) 

IRD(I)  =  IRD(J) 

I  =  J 
J  =  J+J 
ELSE 

J  =  IR+1 
END  IF 
GOTO  20 
ENDIF 

RACI)  =  RRA 
RB(I)  =  RRB 
RC(I)  =  RRC 
IRD(I)  ■  IRRD 
GOTO  10 
END 


SUBROUTINE  CALCIO (STNTMP , IAUG , I ABORT) 

calculate  the  property  matrix  for  inclusion  and  matrix, 
isotropic  relations .  have  assumed  that  matrix  tensile 
modulus  can  he  fitted  to  a  3rd  order  polynomial. 

REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX.NPTMX 

PARAMETER  (GSMX  =  1000.NPTMX  =  1000.NTDIS  -  1) 
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COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPC/  AKO(i) ,AKl(i) ,AK2(1) .STRNPl(NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

C  make  matrix  shear  modulus  dependent  on  strain  if  NL  analysis 
C  desired  (IAUG>0) .  chose  this  form  to  make  compatible  with  existing 
C  program  and  allow  the  tensile  modulus  curve-fitted  parameters  to 
C  be  entered. 

IF  (IAUG.GT.O)  G(3)  -  (AK0(1)+AK1(1)*STNTMP+AK2(1)*STNTMP**2)/ 

*  (2.0*(1+P0IS(3))) 

C 

K(l)  =  (2 .0*G(1)*(1+PQIS(1) ) )/(3.0*(l .0-2 .0*P0IS(1) )) 

E(i)  *  G(l)*(2.0*(l+P0IS(i))) 

K(3)  ■  (2 .0*G(3)*(1+P0IS(3) ) )/(3.0*(l .0-2 .0*P0IS(3) )) 

E(3)  *  G(3)*(2.0*(i+POIS(3))) 

Cl  =  K(l)+(4.0/3.0)*G(l) 

C2  »  K(l)-(2.0/3.0)*G(l) 

C3  =  K(3)+(4.0/3.0)*G(3) 

C4  =  K(3)-(2.0/3.0)*G(3) 

DO  20  I  *  1,3 
DO  10  J  =  1,3 
CI(I,J)  =  C2 
C0(I,J)  =  C4 
IF  (I.EQ.J)  CI(I,J)  =  Cl 
IF  (I.EQ.J)  C0(I,J)  =  C3 
10  CONTINUE 
20  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  CALCCV (FDBND , IPOIS , IABORT) 

C====  calculate  the  property  matrix  for  debonded  particle, 

C  orthotropic  relations,  FDBND  is  debond  fraction  for  vacuole 
C  IPOIS  determines  whether  orthotropic  or  isotropic 
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C 

REAL  IDENT , K , KCMP , MAG 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
C 

IF  (IABORT.EQ. 1)  RETURN 
C 

IF  (K(2).NE.O.AND.G(2).NE.O)  THEN 

POIS(2)  =  (3.0*K(2)-2.0*G(2))/(2.0*(3.0*K(2)+G(2))) 

E(2)  =  9.0*K(2)*G(2)/(3.0*K(2)+G(2)) 

ELSE 

E(2)  =  0.0 
P0ISC2)  =  0.0 
ENDIF 
C 

PCDN  ■  REAL(IPOIS) 

DETM  =  1-P0IS(2)**2-PC0N*2*(P0IS(2)**2+P0IS(2)**3) 

CV(1,1)  =  (FDBND*E(2)*(1-P0IS(2)**2))/DETM 
CV(1 ,2)  =  (FDBND*E(2) * (POIS (2) +POIS (2) **2) ) /DETM 
CV(i ,3)  =  CV(1,2) 

CV(2,i)  =  (E(2) *PCON*POIS (2) * ( 1+POIS (2) ) ) /DETM 
CV(2,2)  =  (E(2)*(1-PC0N*P0IS(2)**2) )/DETM 
CV(2 ,3)  =  (E(2)*(P0IS(2)+PC0N*P0IS(2)**2))/DETM 
CV(3 , 1)  *  CV(2, i) 

CV(3,2)  =  CV(2,3) 

CVC3.3)  =  CV(2,2) 

C 

RETURN 

END 

C 

C 

SUBROUTINE  CMPRPO (IKIND , IMORI , IABORT) 

C====  calculate  constants  in  composite  equation 
C 

REAL  IDENT ,K, KCMP, MAG 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
DIMENSION  CTEMPA(3,3) ,CTEMPB(3,3) 
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C 

IF  (IABORT.EQ. 1)  RETURN 
C 

CALL  CALCW(IKIND , IMORI , IABORT) 

CALL  CALCS (IABORT) 

CALL  SUB ( CTEMP A , C I , CO ) 

CALL  INVERTCCTEHPB , CTEMPA , IABORT) 

CALL  MULT (CA , CTEMPB , CO) 

CALL  SUB (CTEMPA, CV, CO) 

CALL  INVERT (CTEMPB , CTEMPA , IABORT) 

CALL  MULT (CB, CTEMPB, CO) 

CALL  ADD(CE,S,CB) 

CALL  ADD(CF,S,CA) 

C 

RETURN 

END 

C 

SUBROUTINE  CMPRP (CONCI , CONCV , YMULT , CAVG , IABORT) 

C=s  calculate  composite  properties,  ITYPE  identifies  inclusion 
C  or  void 

REAL  I DENT , K , KCMP , MAG 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,POIS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
DIMENSION  CC(3 ,3) ,CD(3,3) ,CG(3,3) ,CH(3,3) 

DIMENSION  CTEMPA (3 , 3) , CTEMPB (3,3), CTEMPC (3 , 3) , CAVG (3 , 3 ) 

C 

C«  calculate  phase-dependent  components  of  composite  equation 

C  calculate  first  half 

C  calculate  phase-i  components 

ITYPE  *  1 

CALL  GAMMA (CG , CONCI , ITYPE , YMULT , IABORT) 

CALL  SUB (CTEMPA, IDENT.S) 

CALL  SUB (CTEMPB, CTEMPA, CG) 

DO  20  I  *  1,3 
DO  10  J  =  1,3 

CC(I,J)  =  CONCI*CTEMPB(I,J) 
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10  CONTINUE 
20  CONTINUE 

C  calculate  phase-v  components 
I TYPE  =  2 

CALL  GAMMA (CH , CONCV , ITYPE , YMULT , I ABORT) 
CALL  SUB(CTEMPA,IDENT,S) 

CALL  SUB (CTEMPB , CTEMPA , CH) 

DO  40  I  =  1,3 
DO  30  J  »  1,3 

CD(I, J)  =  CONCV *CTEMPB ( I , J) 

30  CONTINUE 
40  CONTINUE 

CALL  INVERT (CTEMPA, CE.IABORT) 

CALL  MULT (CTEMPB, CD, CTEMPA) 

CALL  MULT (CTEMPA, CTEMPB, CF) 

C  combine  phase- i  and  phase-v  components 
CALL  ADD (CTEMPB, CTEMPA, CA) 

CALL  ADD (CTEMPA , CTEMPB , S) 

CALL  ADD (CTEMPB.CTEMPA.CC) 

CALL  INVERT (CTEMPA , CTEMPB , I ABORT) 

CALL  MULT (CTEMPB, CG, CTEMPA) 

DO  60  I  =  1,3 
DO  50  J  -  1,3 

CTEMPC(I , J)  =  CONCI*CTEMPB(I,J) 
50  CONTINUE 
60  CONTINUE 

C  calculate  second  half 

CALL  INVERT (CTEMPA , CF , IABORT) 

CALL  MULT (CTEMPB.CC, CTEMPA) 

CALL  MULT (CTEMPA, CTEMPB, CE) 

C  combine  phase-i  and  phase-v  components 

CALL  ADD ( CTEMPB , CTEMPA , CB ) 

CALL  ADD(CTEMPA, CTEMPB, S) 

CALL  ADD (CTEMPB , CTEMPA , CD) 

CALL  INVERT (CTEMPA , CTEMPB , IABORT) 

CALL  MULT (CTEMPB, CH, CTEMPA) 

DO  80  I  ®  1,3 
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DO  70  J  =  1,3 

CTEMPA(I.J)  =  CONCV+CTEHPB ( I , J ) 

70  CONTINUE 
80  CONTINUE 

C=  combine  all  components 

CALL  ADD(CTEMPB ,CTEHPC,CTENPA) 

CALL  ADD (CTEMPA , CTEMPB , IDENT) 

CALL  MULT (CAVG, CO, CTEMPA) 

C 

RETURN 

END 

C 

C 

SUBROUTINE  CALCW( IKIND , IMORI , I ABORT) 

C====  calculate  correction  matrices  WI  and  WV  and  BETA  for 
C  use  in  sbr  GAMMA,  IKIND  determines  inclusion  or  void  for  vacuole 
C  IMORI  determines  if  correction  matrix  used,  0=none, ^inclusion 
C  2=inclusion  and  void 
C 

REAL  IDENT, K.KCMP, MAG 
REAL  KTEMP , KMAT 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

POISM  *  P0ISC3) 

KMAT  «  K(3) 

GMAT  »  G(3) 

C 

KTEMP  «  K(l) 

GTEMP  »  G(l) 

DO  30  INCL  «  1,2 

IF  ( INCL. EQ. 2. AND. IKIND. EQ.O)  THEN 
GTEMP  =  0.0 
KTEMP  =0.0 
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ELSE 

GTEMP  =  G(INCL) 

KTEMP  =  K(INCL) 

END  IF 
C 

ALPHA  =  2 . 0* (5 . 0+P0ISM-1) +10 . 0* ( 1-POISM) * (KMAT/ (KTEMP-KMAT)- 

*  GMAT/ (GTEMP-GMAT) ) 

BETA(INCL)  =  2 . 0* (4 . 0-5 . O+POISM) +15 . 0* ( i-PDISM) * (GMAT/ (GTEMP- 

*  GMAT) ) 

ZETA1  =  12.0*(13.0*P0ISM-14.0*P0ISM**2)-(96.0*ALPHA/(3.0*ALPHA+ 

*  2 . 0*BETA (INCL) ) ) * ( 1-2 . 0*P0ISM) * ( 1+POISM) 

ZETA2  =  6 . 0* (25 . 0-34 . 0+P0ISM+22 . 0*P0ISM**2) - (36 . 0* ALPHA/ (3 . 0* 

*  ALPHA+2 . 0*BETA(INCL) ) ) * ( 1-2 . O+POISM) * ( 1+POISM) 

C 

DO  20  I  =  1,3 
DO  10  J  =  1,3 

IF  (INCL. EQ.l. AND. IMORI.NE.O)  THEN 
HI(I, J)  =  ZETA1 

IF  (I.EQ.J)  WI(I.J)  =  ZETA1+2*ZETA2 
ELSEIF  ( INCL. EQ.l. AND. IMORI.EQ.O)  THEN 
WI(I, J)  =  0.0 

ELSEIF  ( INCL . EQ . 2 . AND . IMORI . EQ . 2)  THEN 
HV(I, J)  =  ZETA1 

IF  (I.EQ.J)  WV(I,J)  =  ZETA 1+2+ZETA2 
ELSE 

WV(I,J)  =  0.0 
END  IF 

10  CONTINUE 

20  CONTINUE 
30  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  CALCS (I ABORT) 

C====  calculate  Eshelby  matrices  SI  and  SV 
REAL  I DENT , K , KCHP , MAG 

COMMON  /MATRB/  S(3,3) ,CA(3,3) ,CB(3,3) ,CE(3,3) ,CF(3,3) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
C 

IF  (I ABORT. EQ . 1)  RETURN 
C 

POISM  =  P0ISC3) 

SDET  =  15.0*(1-POISM) 

C 

51  =  5 .0*P0ISM-i 

52  =  4.0-5.0*P0ISM 
C 

DO  20  I  =  1,3 
DO  10  J  s  1,3 

S(I,J)  *  SI /SDET 

IF  (I.EQ.J)  S(I,J)  *  (Sl+2 . 0*S2) /SDET 
10  CONTINUE 
20  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  GAMMA (A , CONC , ITYPE , YMULT , I ABORT) 

C====  calculate  correction  matrix  A  given  inclusion  I  and  its 
C  concentration  CONC,  Y  depends  on  ■icrostructural  features 
C  ITYPE  identifies  inclusion  or  void 
REAL  IDENT,K,KCMP,MAG 

COMMON  /MATRA/  BETA(2) ,WI(3,3) ,WV(3,3) ,IDENT(3,3) 

DIMENSION  A (3, 3) 

C 

IF  (IABORT.EQ.l)  RETURN 
C 

Y  =  YMULT*  (1-C0NO/24.0 

MAG  «  5 . 0*C0NC*Y/ (4 . 0*BETA(ITYPE) **2) 
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DO  20  I  =  1,3 
DO  10  J  -  1,3 

IF  (ITYPE.EQ.l)  A(I, J)  *  IDENT ( I , J) +MAG*WI (I , J) 
IF  (ITYPE.EQ.2)  A(I,J)  =  IDENT ( I , J) +MAG*WV ( I , J) 
10  CONTINUE 
20  CONTINUE 

RETURN 

END 


SUBROUTINE  ADD(C,A,B) 

;==  subroutine  for  adding  two  square  matrices  CsA+B 
DIMENSION  A(3,3) ,B(3,3) ,C(3,3) 

DO  20  I  =  1,3 
DO  10  J  =  1,3 

C(I,J)  =  A(I, J)+B(I,J) 

10  CONTINUE 
20  CONTINUE 

RETURN 

END 


SUBROUTINE  SUB(C,A,B) 

===  subroutine  for  adding  two  square  matrices  C=A-B 
DIMENSION  A(3,3) ,B(3,3) ,C(3,3) 

DO  20  I  *  1,3 
DO  10  J  =  1,3 

C(I,J)  =  A(I , J)-B(I , J) 

10  CONTINUE 
20  CONTINUE 


RETURN 
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C 

C 

SUBROUTINE  MULT(C,A,B) 

0===  subroutine  for  multiplying  two  square  matrices  OA.B 
DIMENSION  A(3,3),B(3,3),C(3,3) 

C 

DO  30  I  =  1,3 
DO  20  J  =  1,3 
C(I,J)  -  0 
DO  10  K  =  1,3 

C(I,J)  =  C(I, J)+A(I,K)*B(K, J) 

10  CONTINUE 

20  CONTINUE 
30  CONTINUE 
C 

RETURN 

END 

C 

C 

SUBROUTINE  INVERT (AI , A , I ABORT) 

C===s  subroutine  used  for  inverting  matrix  A  to  give  AI 
DIMENSION  A(3,3) ,AI(3,3) 

C 

IF  (I ABORT. EQ. 1)  RETURN 
C 

DETA  -  ~(A(1 ,3)*A(2,2)*A(3, 1))+A(1 ,2)*A(2 ,3)*A(3, 1)+A(1 ,3)* 

*  A(2,1)*A(3,2)-A(1,1)*A(2,3)*A(3,2)-A(1,2)*A(2,1)*A(3,3)+ 

*  A(1 , 1)*A(2,2)*A(3,3) 

C 

IF  (DETA.NE.O)  THEN 

AI(1,1)  «  (-(A(2,3)*A(3,2))+A(2,2)*A(3,3))/DETA 
AI(1, 2)  -  (Ad,3)*A(3,2)-Ad,2)*A(3,3))/DETA 
AI(1, 3)  *  (~(A(1 ,3)*A(2,2))+A(1 ,2)*A(2,3))/DETA 
AI(2, 1)  «  (A(2,3)*A(3, 1)-A(2, 1)*A (3,3) ) /DETA 
AI(2,2)  =  (-(A(1,3)*A(3, 1))+A(1,1)*A(3,3))/DETA 
AI(2,3)  =  (A(l ,3)*A(2, 1)-A(1, 1)*A(2,3) )/DETA 
AI(3, 1)  =  (-(A(2,2)*A(3,1))+A(2,1)*A(3,2))/DETA 


UNCLASSIFIED 

E38 


AI(3,2)  =  (A(l,2)*A(3,i)-A(l,l)*A(3,2))/DETA 
AI(3,3)  =  (-(A(i,2)*A(2,l))+A(l, 1)*A(2,2))/DETA 
ELSE 

IABORT  =  1 

WRITE  (6,’ (A)’)  ’  SBR  INVERT:  indeterminant  matrix’ 

ENDIF 

C 

RETURN 

END 

C 

C 

SUBROUTINE  GAUWRT(NDIST,NPTS, IABORT) 

C====  write  out  cumulative  distribution  data. 

C  for  some  reason,  cannot  print  out  PROBs  correctly  using 
C  F  format,  numbers  end  up  getting  multiplied  by  ten. 

C 

C  set  NPTMX  =  NTDIS*GSMX 
C 

REAL  LOGSTD , NPARTL , NUMP AR , NETVF , NETVV 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000.NTDIS  =  i) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS,GSMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 

WRITE  (6,’ (A)’)  ’  Writing  GAUSS . DAT ’ 

OPEN  (UNIT=7 , FILE= ’ _ GAUSS . DAT ’ , FORM= ’ FORMATTED ’ , STATUS^ ’ UNKNOWN ’ ) 
WRITE  (7,5000) 

DO  10  IPTS  ='  l.NPTS 

WRITE  (7,5100)  Z(IPTS),(PROB(IDIST, IPTS) ,RADIUS(IDIST, IPTS), 

*  IDIST  =  l.NDIST) 

10  CONTINUE 

CLOSE  (7) 

C 

RETURN 

5000  FORMAT  (’  Z  Pr  Radius (mm)  Pr 

*  Radius (mm)  Pr  Radius (mm)’) 

5100  FORMAT  (1X,F6.3,6(3X,0PE13.6)) 
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END 

C 

C 

SUBROUTINE  HSTWRT (NDIST , NPTS , I ABORT) 

C====  write  out  histogram  and  tracking  data 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX,NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  *  1000, NTDIS  =  1) 

COMMON  /GAUS/  Z(GSMX) .RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR (NTDIS .GSMX) .VOLPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) .DADC(NPTMX) .NPARTL (NTDIS) 

C 

IF  (IABORT.EQ. i)  RETURN 

WRITE  (6,’ (A)’)  »  Writing  HISTO.DAT’ 

OPEN  (UNIT=7,FILE=’ _HIST0.DAT’ . FORM= ’ FORMATTED » . STATUS* ’ UNKNOWN ’ ) 
NPRTOT  =  0 
VOLTOT  =  0 

DO  20  IDIST  =  1, NDIST 
DO  10  IHST  =  1 , NPTS 

NPRTOT  =  NPRTOT+NUMPAR (IDIST , IHST) 

VOLTOT  =  VOLTOT+VOLPAR(IDIST, IHST) 

10  CONTINUE 
20  CONTINUE 
C 

CUMVOL  =0.0 
DO  40  IDIST  =  1, NDIST 
WRITE  (7,5000) 

DO  30  IHST  «  l.NPTS 

PERNPR  «  100+REAL (NUMPAR (IDIST . IHST) ) /REAL (NPRTOT) 

PERVOL  «  100*V0LPAR(IDIST . IHST) /VOLTOT 

CUMVOL  «  CUMVOL+PERVOL 

WRITE  (7,5100)  IHST, RADIUS (IDIST, IHST), 

*  AL0G10 (NUMPAR(IDIST , IHST) ) ,VOLPAR(IDIST,IHST) .PERNPR, 

*  PERVOL, PROB (IDIST, IHST), CUMVOL 
30  CONTINUE 


40  CONTINUE 
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CLOSE  (7) 

C 

RETURN 

5000  FORMAT  (’  Point  avg  R(mm)  log  #  part.  volume (imn3)  Xno.p 
♦articles  %  part. volume  cum.  prob.  cum.  vol.’) 

5100  FORMAT  (2X,I3,3X,7(1PE13.6,2X)) 

END 

C 

C 

SUBROUTINE  STRWRT (NDIST , NPTS , V0LSMP , GAMM , FDBND , YMULT , IKIND , IMORI , 

♦  IPOIS , PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , IABORT) 

C====  write  out  true  stress  and  dilatation  results  versus  critical  strain 
C  include  probability  survival,  radius,  no.  particles  and 

C  distribution  info,  write  intermediate  data  where  e_i<e_max  if 
C  IWRT>0 . 

C 

REAL  LOGSTD , NPARTL , NUMP AR , NETVF , NETVV 
REAL  I DENT , K , KCMP , MAG 
INTEGER  GSMX , NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  =  1000, NTDIS  *  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /DEBUG/  NUMP AR(NTDIS , GSMX) ,V0LPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 

COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21 (NPTMX) ,C22(NPTMX) , 

♦  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AK0(1) ,AK1(1) ,AK2(1) .STRNPl (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT (NPTMX) , 

♦  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

CHARACTER  FILNM*8 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

IF  (FILNM .EQ .  ’ DEFAULT’ )  FILNM  =  ’.STRESS’ 

WRITE  (6, ’ (/ ,A,A8 ,A) ’ )  ’  Writing  to  ’ .FILNM, ’ .DAT’ 
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C 

OPEN  (UNIT=7 ,FILE=FILNM// ’ . DAT ’ , STATUS*  *  UNKNOWN ’ ) 

WRITE  (7,5000) 

DO  10  I  =  l.NDIST 

WRITE  (7, * (IX ,11 ,4(3X,0PEil .4)) ’ )  I ,RADAVG(I) ,LOGSTD(I) , 

*  VLFRFO ( I ) , VLFRVO ( I ) 

10  CONTINUE 

C 

GCTOT  =  0 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IHORI,IPOIS 
.  WRITE  (7,5300)  PRESS , GAMM , DILATO , STSFUD , DBANG 
WRITE(7 ,5600)  AKO(l) ,AK1(1) ,AK2(1) , ISKIP 
WRITE  (7,5400) 

DO  20  I  -  1 ,NDIST*NPTS+NLT0T+1 
ETMP  «  ECMP(I)/1E6 
IF(NETW(I)  .GT.O)THEN 

GCDADC  =  -2 .0*GAMM*DADC(I)/ (V0LSMP*lE-3) 

GCTOT  =  GCT0T+GCDADC/1E6 
ENDIF 

IF  (IWRT .EQ . 0 . AND . IPDIST(I) . LT . 9 . AND . I . GT . NLTOT+1)  GOTO  20 
WRITE  (7,5500)  I ,CRTSTN(I) ,STRESS(I) ,DILAT(I) ,PRBSRV(I) ,ETMP, 

*  POISC(I) .STRNPl(I) ,GCTOT,NETVV(I) .IPDIST(I) 

20  CONTINUE 

C 

CLOSE  (7) 

RETURN 

5000  FORMAT  (*  #  avg  Rad (urn)  std  dev  Vf  Vv») 

5100  FORMAT  (’  Go(Pa)«’ .0PE11.4, »  Gf (Pa)»» ,0PE11 .4, »  v®»» .0PE11.4, 

*  »  vf** .0PE11.4, ’  Gv(Pa)«* .0PE11.4, *  Kv«* .OPEll .4) 

5200  FORMAT  (»  V(mm3)  «»,0PE11.4,»  frac  dbnd«» , OPEll. 4, »  Y-«ult«» .OPEll 

*  .4,'  w-type»’ ,13, *  m-type* ’ , 13 , *  v-type*’,I3) 

5300  FORMAT  (»  P0(Pa)«» ,0PE11 .4, »  Gc(Pa-m)«’ ,0PE11 .4, »  (dV/V)0-» .OPEll 

*  .4,  *  crit .strs(Pa)*’ , OPEll. 4,  *  dbnd.ang(deg)»’ , OPEll. 4) 

5400  FORMAT  ( *  Point  crit  stm  stress  (MPa)  dV/V  Prlsurv 

*  E_c(MPa)  Poisson  mat  strn  CumGAC(MPa)  V_v 

*  dist’) 
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5600  FORMAT  (’  AKO(Pa)=’ ,0PE11 .4, *  AKl(Pa)*’ ,0PE11 .4, ’  AK2(Pa)«’, 

*  OPEli .4, ’  ISKIPs  * fI2) 

5500  FORMAT  (IX, I3,3X,9(1PE11 .4,2X) , IX, II) 

C 

END 

C 

C 

SUBROUTINE  STRAUX (NDIST, NPTS , VOLSMP , GAMM , FDBND , YMULT , IKIND , IMORI , 

*  IPOIS , PRESS , DILATO , FILNM , NLTOT , STSFUD , IWRT , DBANG , ISKIP , I ABORT) 

Qsssa  write  out  true  stress  and  dilatation  results  versus  critical  strain 
C  include  probability  survival,  radius,  no.  particles  and 

C  distribution  info,  write  intermediate  data  where  e_i<e_max  if 
C  IWRT>0 . 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , MAG 
INTEGER  GSMX.NPTMX 

PARAMETER  (GSMX  =  1000,NPTMX  =  1000.NTDIS  *  1) 

COMMON  /DIST/  RADAVG(NTDIS) , LOGSTD (NTDIS) .VLFRFO(NTDIS) , 

*  VLFRVO (NTDIS) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) , VOLPAR (NTDIS , GSMX) , 

*  NETVF (NPTMX) , NETVV (NPTMX) .DADC(NPTMX) , NPARTL (NTDIS) 

COMMON  /PROPA/  K(3) ,G(3) ,E(3) ,P0IS(3) ,CI(3,3) ,CV(3,3) ,C0(3,3) 
COMMON  /PROPB/  Cl 1 (NPTMX) ,C12 (NPTMX) ,C21 (NPTMX) ,C22 (NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /PROPC/  AK0(1) ,AK1(1) ,AK2(1) ,STRNP1 (NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) ,DILAT (NPTMX) , 

*  PRBSRV(NPTMX) .SORRAD (NPTMX) .SORPAR(NPTMX) , SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

CHARACTER  FILNM*8 

C 

IF  (IABORT.EQ. 1)  RETURN 
C 

IF  (FILNM. EQ. ’DEFAULT’)  FILNM  =  ’.STRESS’ 

WRITE  (6, ’ (/ ,A,A8 ,A) ’ )  ’  Writing  to  ’ .FILNM, ’ .AUX’ 

C 

OPEN  (UNITs7 ,FILE=FILNM/ / ’ .AUX’ , STATUS-’ UNKNOWN ’ ) 
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WRITE  (7,6000) 

DO  10  I  =  l.NDIST 

WRITE  (7 , * (1X,I1,4(3X,0PE11 .4) ) * )  I .RADAVG(I) ,LOGSTD(I) , 

*  VLFRFO (I) , VLFRVO ( I ) 

10  CONTINUE 

C 

GCTOT  ■  0 

WRITE  (7,5100)  G(3) ,G(1) ,P0IS(3) ,P0IS(1) ,G(2) ,K(2) 

WRITE  (7,5200)  VOLSMP,FDBND,YMULT,IKIND,IMORI,IPOIS 
WRITE  (7,5300)  PRESS , GAHM , DILATO , STSFUD , DBANG 
WRITE(7 ,5600)  AKO(l) ,AK1(1) , AK2(1) , ISKIP 
WRITE  (7,5400) 

DO  20  I  =  1 ,NDIST*NPTS+NLTOT+i 
ETMP  *  ECMP(I)/1E6 
IF(NETVV(I) .GT.O)THEN 

DCV  ■  NETVV (I ) -NETW ( 1-1 ) 

GCDADC  =  (-2 . 0*GAMM*DADC (I) / (V0LSMP*iE-3) ) / 1E6 
GCTOT  =  GCTOT+GCDADC 
END  IF 

IF  ( I WRT . EQ . 0 . AND . IPDIST ( I ) . LT . 9 . AND . I . GT . NLTOT+ 1)  GOTO  20 
WRITE  (7,5500)  I,CRTSTN(I) ,STRESS(I) ,DILAT(I) ,PRBSRV(I) ,ETMP, 

*  GCDADC, DCV, GCTOT, NETVV(I) ,IPDIST(I) 

20  CONTINUE 

C 

CLOSE  (7) 

RETURN 

5000  FORMAT  (’  #  avg  Rad(um)  std  dev  Vf  Vv’) 

5100  FORMAT  (’  Gm(Pa)-’ ,0PE11 .4, »  Gf (Pa)»» ,0PE11 .4, »  va«» .0PE11.4, 

*  »  vf«\0PE11.4,*  Gv(Pa)«\0PE11.4,»  Kv»  .OPEll  .4) 

5200  FORMAT  (»  V(mm3)  «\0PEU.4,»  frac  dbnd-»  .OPEll.  4, »  Y-aulf* ,  OPEll 

*  .4,’  w-type»’ ,13, *  m-type» * , 13 , *  v-type»*,I3) 

5300  FORMAT  (»  PO(Pa)«» .0PE11.4, »  Gc(Pa-In)«, .OPEll. 4, *  (dV/V)0-» .OPEll 

*  .4,  *  crit .str8(Pa)»’ .OPEll. 4,  *  dbnd.ang(deg)«* .OPEll .4) 

5400  FORMAT  (*  Point  crit  stm  stress  (MPa)  dV/V  Prlsurv 

*  E_c(MPa)  GCDADC (MPa)  dC.cal  CumGAC(MPa)  V_v 

*  dist’) 

5600  FORMAT  (’  AKO(Pa)s’ .OPEll .4, ’  AKl(Pa)=’ , OPEll. 4, *  AK2(Pa)=>, 
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*  OPEii  .4,  *  ISKIPs  M2) 

5500  FORMAT  (1X,I3,3X,9(1PE11 .4,2X) ,1X,I1) 

C 

END 

C 

C 

SUBROUTINE  DBGWRT (NDIST , NPTS , NLTOT , I ABORT) 

Cs===  write  out  additional  data  for  debugging  purposes. 

C 

C  set  NPTMX  =  NTDIS+GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  I DENT , K , KCMP , M AG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  »  1000, NPTMX  =  1000.NTDIS  =  1) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS, GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS, GSMX) .VOLPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21(NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP (NPTMX) .POISC(NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 

WRITE  (6,’ (A)’)  ’  Writing  DEBUG . DAT ’ 

C 

OPEN  (UNIT=7,FILE=’ .DEBUG. DAT’ , FORM=  * FORMATTED ’ , STATUS= ’ UNKNOWN ’ ) 
WRITE  (7,5000) 

DO  10  IHST  =  l.NDIST+NPTS+NLTOT+l 

WRITE  (7,5100)  IHST, NETVF (IHST), NETVV (IHST), DADC (IHST), 

*  Cil(IHST) ,C12(IHST) ,C21(IHST) ,C22(IHST) ,C23(IHST) , 

*  PRBSRV (IHST) 

10  CONTINUE 

CLOSE  (7) 

C 


RETURN 
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5000  FORMAT  (’  Point  net  Vf  net  Vv  dA/dc 

*  Cli  C12  C21  C22  C23 

*  Pr | surv ’ ) 

5100  FORMAT  (2X,I3,3X,9(0PE13.6,2X)) 

END 

C 

C 

SUBROUTINE  DBGRAT (NDIST , NPTS , NLTOT , I ABORT) 

C====  write  out  additional  data  for  debugging  purposes 
C  along  with  true  stress-strain  data  outputs  radius  and  the  factor 
C  SQRT(RAD*dG/dc)  to  look  at  its  relationship  with  crit.  strain 
C 

C  set  NPTMX  =  NTDIS+GSMX 
C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
REAL  IDENT , K , KCMP , KTMP , MAG 
INTEGER  GSMX, NPTMX 

PARAMETER  (GSMX  =  1000, NPTMX  ■  1000.NTDIS  «  1) 

COMMON  /GAUS/  Z(GSMX) , RADIUS (NTDIS , GSMX) ,PROB(NTDIS, GSMX) 

COMMON  /DEBUG/  NUMPAR(NTDIS , GSMX) .VOLPAR (NTDIS, GSMX) , 

*  NETVF (NPTMX) .NETVV (NPTMX) ,DADC (NPTMX) .NPARTL (NTDIS) 

COMMON  /PROPB/  Cll(NPTMX) ,C12(NPTMX) ,C21 (NPTMX) ,C22(NPTMX) , 

*  C23 (NPTMX) ,ECMP( NPTMX) .POISC(NPTMX) 

COMMON  /RESULT/  CRTSTN (NPTMX) .STRESS (NPTMX) .DILAT(NPTMX) , 

*  PRBSRV (NPTMX) .SORRAD (NPTMX) .SORPAR (NPTMX) .SORVLP (NPTMX) , 

*  IPDIST (NPTMX) 

C 

IF  (IABORT.EQ. 1)  RETURN 

WRITE  (6,»(A)’)  »  Writing  DERAT . DAT ’ 

C 

OPEN  (UNIT-7 , FILE- » _DERAT . DAT ’ , FORM- » FORMATTED » , STATUS- *  UNKNOWN » ) 
WRITE  (7,5000) 

DO  10  IHST  -  1 ,NDIST*NPTS+NLT0T+1 
ETMP  «  ECMP(IHST) 

RAD  =  0.0 
DNETF  =0.0 
DNETV  =0.0 
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DETMP  =0.0 

IF  (IHST.GT.NLTOT+i)  RAD  =  SORRAD ( IHST-NLTOT- 1 ) 

IF  (IHST.GT. 1)  DNETF  =  ABS(NETVF(IHST)-NETVF(IHST-1) ) 
IF  (IHST.GT.  1)  DNETV  =  ABS(NETW(IHST)-NETW(IHST-1)) 
IF  (IHST.GT. 1)  DETMP  «  ABS(ECMP(IHST)-ECMP(IHST-1)) 
FACT  =  SQRT (RAD* DETMP) 

WRITE  (7,5100)  IHST.CRTSTN(IHST), STRESS (IHST), RAD, 

*  PRBSRV(IHST) , ETMP , POISC (IHST ) .DNETF, DNETV, FACT 
10  CONTINUE 

CLOSE  (7) 

RETURN 

5000  FORMAT  (’  Point  crit  strn  stress(MPa)  Avg  r(mm) 

*  E_c(MPa)  Poisson  dV.f  dV.v 

5100  FORMAT  (1X,I3,3X,9(1PE11 .4,2X)) 

END 


Pr | surv 
fact  * ) 
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INCLUDE  ’MSGRAPH.FOR’ 

C 

SUBROUTINE  CRVPLT (NDIST , NPTS , NLTOT , IWRT , I ABORT) 

C====  driver  routine  for  plotting  curve  on  screen,  keep  the 
C  INCLUDE  ’MSGRAPH.FOR’  with  this  module. 

C 

C  set  PTMX  =  NTDIS*GSMX 

C 

REAL  LOGSTD , NPARTL , NUMPAR , NETVF , NETVV 
INTEGER  GSMX.PTMX 

PARAMETER  (GSMX  =  1000, PTMX  =  1000.NTDIS  =  1) 

COMMON  /RESULT/  CRTSTN(PTMX) .STRESS(PTMX) .DILAT(PTMX) , 

*  PRBSRV(PTMX) .SORRAD (PTMX) .SORPAR(PTMX) ,SORVLP(PTMX) , 

*  IPDIST(PTMX) 

DIMENSION  X(PTMX) ,Y1(PTMX) ,Y2(PTMX) 

CHARACTER  ANS*1 
C 

IF  (IABORT.EQ. i)  RETURN 
C 

10  CONTINUE 

WRITE  (6,’(/,A)’)  ’  Graph  results  on  screen?  (Y/N) ’ 

READ  (5,’CAl)’)  ANS 
C 

NT0T=0 

DO  20  I  -  1 ,NDIST*NPTS+NLT0T+1 

IF  (IWRT. EQ.O. AND. IPDIST(I).LT. 9. AND. I.GT.NLTOT+1)  GOTO  20 
NTOT  s  NTOT+1 
X(NTOT)  -  CRTSTN(I) 

Yl(NTOT)  -  STRESS(I) 

Y2(NT0T)  «  DILAT(I) 

20  CONTINUE 
C 

IF  (ANS.EQ.’Y’)  THEN 

WRITE  (6, ’(A)’)  ’  Strain,  Stress  and  dV/V  end  pts’ 

READ  (S,*)  XEND , YSEND , YDEND 

CALL  GRAF ( NTOT , X , Y1 , Y2 , XEND , YSEND , YDEND) 

ELSE 
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ENDIF 

C 

IF  (ANS.EQ. ’Y’ )  GOTO  10 
C 

RETURN 

END 

C 

C 

SUBROUTINE  GRAF(N,X,Y1 ,Y2,XEND .YSEND .YDEND) 

C 

C  set  PTMX  -  NTDISfGSMX 
C 

INTEGER  PTMX 

PARAMETER  (GSMX  =  1000, PTMX  *  1000.NTDIS  =  1) 

DIMENSION  X (PTMX) ,Y1(PTMX) ,Y2(PTMX) 

C 

INCLUDE  ’GRFDEF.FOR’ 

C 

CALL  VIDEO (MAXX.MAXY.NOGRAF) 

IF  (NOGRAF.EQ.O)  THEN 
C 

CALL  VWPORT (MAXX ,MAXY) 

C 

XBEG  *  0 

YBEG  =  0 

CALL  WINDOW (XBEG , YBEG , XEND , YSEND) 

ICURV  =  1 

XLAB  =  ’strain’ 

YLAB  =  ’strs  (MPa)’ 

CALL  ATTRIB (ICURV, ILNCOL.ILNSTY) 

CALL  LABELS (ICURV , ILNCOL , XLAB , YLAB , XBEG , YBEG , XEND , YSEND) 
C 

ICURV  =  1 

CALL  ATTRIB (ICURV, ILNCOL.ILNSTY) 

CALL  CURVE(X,Y1,N, ILNCOL.ILNSTY) 

C 

CALL  WINDOW (XBEG , YBEG , XEND , YDEND ) 
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ICURV  =  3 
XLAB  s  ’strain’ 

YLAB  =  ’dV/V’ 

CALL  ATTEIB ( ICURV , ILNCOL , ILNSTY) 

CALL  LABELS ( ICURV , ILNCOL , XLAB , YLAB , XBEG , YBEG , XEND , YDEND) 
C 

ICURV  =  3 

CALL  ATTRIB ( ICURV , ILNCOL , ILNSTY) 

CALL  CURVE(X,Y2,N, ILNCOL .ILNSTY) 

C 

CALL  ENDGRFO 
C 

ELSE 

WRITE  (6, ’(A)’)  ’  SBR  GRAF:  problem  with  graphics’ 

ENDIF 

C 

RETURN 

END 
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